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UNITÀ DIDATTICA UNO 


Obiettivo 2 


Scrivere il nome di almeno tre periferiche i 
TASTICRA, STAMPANTE, —  _ REGISTRATORE 


Qual'è la periferica che scrive sulla carta? 
CD Video O Tastiera O Registratore (Stampante 


Qual'è la periferica che utilizza i nastri magnetici? 
O) Video JK Tastiera O Registratore O Stampante 


_ Obiettivo 3 
Il sistema operativo è parte dell'hardware SIO Noby 
La tastiera di un computer è parte dell'hardware Si e] No.E] 
ll basic è un linguaggio di programmazione Sib> NoOD 
Obiettivo 4 


Scrivere il nome di almeno tre tasti di controllo presenti sulla tastiera che state utilizzando 


Il tasto “HOME” è un tasto alfanumerico SiOO NokK 
Il tasto “+=” è un tasto alfanumerico Sig] NoC] 
Ne brevemente (massimo 10 parole) a che cosa serve il tasto Shift. À 


- 


Eseguite al computer: - 


a) Cancellare lo schermo 

b) Scrivere ordinatamente l'alfabeto minuscolo sulla 1° riga 

c) Posizionare il cursore alla decima riga 

d) Scrivere i numeri da 0 a 9 sulla decima riga 

e) Cancellare completamente la 1* riga (non usare la barra spaziatrice ma il tasto di cancel- 
lazione) 

f) Scrivere l'alfabeto maiuscolo sulla 1° riga 

g) Scrivere, alternando le maiuscole alle minuscole, l'alfabeto sulla 5° riga (es.: ADCdEf...) 

h) Scrivere il proprio nome e cognome (le iniziali maiuscole) sull'altima riga dello schermo 


AOC SO ERO NI u_u ———___l 


4 


vi 


Obiettivo 5 


| linguaggi di programmazione composti da parole invece che da numeri 
rendono più facile la programmazione 


Sifg__NoC] 
È più importante capire quello che un'istruzione fa eseguire al computer > 
che non imparare a memoria le istruzioni SH (| No UL] 
Obiettivo 6 
Il messaggio “Syntax error” segnala un errore? Sikl No0D 


L'istruzione PRINT serve a: 
O Spegnere il video O Leggere dal video Scrivere sul video 
L'istruzione PRINT 1+2 che risultato dà sul video? 3 


Obiettivo 7 


Eseguire al computer gli esempi proposti dal manuale del corso per l’obiettivo 7 


Obiettivo 8 
Scrivere almeno due comandi di sistema: | 


Il sistema operativo fa parte del software Sig NoO 
Il BASIC fa parte del software SiNM NoO 
La tastiera fa parte del software Si No 


Obiettivo 9 
Eseguire al computer: 
1) Cancellare il programma precedente (dare NEW e return); 
2) Introdurre le seguenti linee di programma 
20 PRINT 5+3 (return) 
10 PRINT 6-2 (return) 
3) Cancelare il video (premere il tasto apposito) 
4) Fare apparire il listato del programma (dare LIST e return) 
5) Quali differenze si notano rispetto alle linee inserite? 


Cho We reg Domo alata Sutton onda 


6) Inserire la seguente linea (non spostare il cursore dalla posizione in cui si è portato do- 
po il punto 4) 
15 PRINT 3+4 (return) 
7) Cancelare i video (premere l'apposito tasto) 
8) Fare apparire il listato del programma (dare LIST e return) 


9) di enza Ù notano rispetto a quanto scritto al punto di | 


Y10) Cancellare la linea 10 (inseriere 10 e dare return) 
11) Modificare, utilizzando i tasti di editing la linea 15 nella seguente: 
15 PRINT 30+14 (ricordarsi di dare return alla fine) 


12) Cancellare il Video (premere l'apposito tasto) 
13) Fare apparire il listato del programma (dare LIST e return) 
14) Che differenze si notano rispetto a quanto scritto al punto 9? 


Obiettivo 10 
Eseguire al computer gli esempi proposti dal manuale del corso per l’obiettivo 10. WINE 
Qual'è il segno che indica al computer la differenza tra parole e numeri? 
Virgola (,) 54 Punto (.) CD) Virgolette (") O Apice () 5 
Quale dei seguenti simboli appartiene agli operatori matematici? 
+ SIX No O 
; SID No bg 
, SIO No WI 
— Sil No O 
° SIX No & 
! SIO No BA 
/ SiK No & 


* Sig No D] 


Esercizio finale unità didattica uno 


Digitare il programma allegato con molta attenzione in particolare per i seguenti segni: vir- 
gole, punto e virgola, segni speciali come $ (dollaro), parentesi, spaziature (che devono es- 
sere scritte esattamente come nel listato) 


Ricordarsi di premere il tasto di immissione (Enter o Return) alla fine di ogni riga del listato. 


Dopo l'inserimento di tutte le righe provare a: 

— Fare eseguire il programma. 

— Correggere gli eventuali errori (segnalati dal messaggio Syntax Error del computer). 

— Salvare il programma su nastro o dischetto (quando è corretto e funziona). 

— Verificare che il salvataggio del programma sia stato eseguito regolarmente. 

— Dopo la verifica spegnere il computer e provare a caricare dal nastro o dal dischetto il 
programma, per eseguirlo ancora. 


Potrete incontrare delle difficoltà nella realizzazione delle operazioni elencate sopra, dovu- 
te soprattutto alla vostra inesperienza, ma non scoraggiatevi per così poco. 


Consultate attentamente i manuali, per quanto riguarda le modalità da seguire e provate a 
ripetere da capo tutto quanto, finchè non diventerà più semplice utilizzare la tastiera del vo- 
stro computer ed i comandi di sistema di cui sopra. 


eriore ei =) i / 


Leggete attentamente quanto segue, cercando di dare le risposte che ritenete più opportu- 
ne. Se una domanda vi sembra esposta in modo poco chiaro vi preghiamo di segnalarlo in- 


i lo in- 
ne. Se una domanda vi sembra esposta in modo poco chiaro vi preghiamo di segnalar dicando NON CHIARO come risposta. 


dicando NON CHIARO come risposta. 


— ELENCA almeno tre comandi “di sistema” del linguaggio BASIC spiegando molto breve- COMPLETA CON PAROLE TUE LE SEGUENTI FRASI: 


mente a cosa servono. 


;5) , STI Scrivere un programma BASIC vuol dire Lod Loria lun em 
TASTIZRA= pat Ul dl in ee 6-3 se 


E 
sa E 

* Leggete attentamente quanto segue, cercando di dare le risposte che ritenete più opportu- 
€23 


ci 6-3 
— ELENCA tipi di costanti che si possono usare in BASIC facendo almeno un esempio pe E-3 Cancellando lo schermo ..0T. MA MPONAL. mole. il programma in memoria. 


ogni tipo. Per muovere il CURSORE sul video occorre utilizzare ST porolo ln. “n 


TIPO... @SEMPÎO! ............. TIPO:......... 


esempio: .............. a È SE p : 7 
pa Il computer esegue i COMANDI DIRETTI quando ..T\. 04. QTCAAVA®MIO. “RI NT 
— INDICA la differenza tra COMANDI DIRETTI e COMANDI PROGRAMMATI: 


e Il computer esegue le righe di un programma quando . DAr lat xe 
x Pai 
es Yer vedere il risultato della divisione 50/10 è necessario scrivere la seguente istruzione 
ca [== 0 PRI 
— Leggicon MOLTA ATTENZIONE la domanda seguente e respond con precisione: QUARA sa Aso PRINT 50/f0. di DA ili iO lite RESI 
i e sulla tastiera per far ESEGUIRE un programma presen — 
MEGA i dov premete B dg Il computer riconosce le COSTANTI ALFANUMERICHE (STRINGHE) soltanto se 402... 
e23 "n° 


ongno. oli duro da Lem, ha o lo 


I numeri contenuti inuna COSTANTE ALFANUMERICA NON POSSONO essere utilizzati per 


Per cancellare una riga di programma occorre | Ere ) iS 50 N 


RISP.: Devo premere NR................. tasti in tutto e sono i seguenti: 


— Come possiamo chiamare con una sola parola l'insieme delle LETTERE, CIFRE, SEGNI e 
SIMBOLI che compaiono sulla tastiera di un computer? 


— Cosa sono gli OPERATORI MATEMATICI? 


O: 0 


— Scrivi il risultato che si ottiene inserendo questa istruzione nel computer: 


PRINT 20 — 24 2#((8-—4))+12/4...... MPRICE AMIR E ARR n 


Per cancellare TUTTE le righe di un programma occorre .. iS HET RO Do 


ip) 
Il CURSORE lampeggiante sul video indica il posto in cui verrà 2adlo SN 
Per trasferire un programma, DALLA memoria centrale, ad una MEMORIA DI MASSA, è ne- 
X quale segnale si deve usare per'indicare al computer una COSTANTE ALFANUMERICA? cessario dare il comando di sistema Ri. Ri da: OOO LE 


Inserire istruzioni numerate nella memoria significa rt 


| 
Ì 


—_ vv 


1 REM 4544444444444 44444444 1 REM EEAAHHAAHIAAANAAANAAAAA 
2. REM ### TOTO RANDOM #4% 2 REM 4% TOTO RANDOM #% 
3 REM 6464444444444 444444444 3 REM #KKKKFAHAHKAKHAAAAAAEA 
4 REM ## SCUOLA SCHEIDEGGER * 4 REM ## PER COMPUTERS #% 
5 REM KKKKE44K444 444444444444 5 REM #* LASER 110 E 210 #* 
6 REM ##PER COMMODORE VIC 20% 6 REM #K44K4HHKHAHKYAAAHAAAA 
7 REM #&* E COMMODORE 64 #% ? REM 
5 REM KKEK444EK4K44444444444% 8 REM SCUOLA SCHEIDEGGER 
10 TL$=CHR$<1473+"TOTO RANDOM" 9 REM 
20 PRINT TL$ : PRINT 16 CLS 
25 PRINT CHR$(19);CHR$(17);CHR$17); mi 20 TL$="TOTO RANDOM" 
30 PRINT"QUANTE & 3"; 30 S$="QUANTE x" 
TOTTI 45 GOSUB 10060 :N=VALCR$5 - 40 GOSUB 1000 
50. IFNZ<b DR NA 313 OR INTCN)<>HX THEHN25 509 NX=VALCA$5:IF NX>13 THEN 40 
55 PRINT CHR$C19); Cnn] 60 MAX=13-NX 
8 56 FORI = 1 T05 : PRINT CHR$C17); È 70 S$="QUANTI 1" 
57 NEXT I 80 GOSUB 1060 
60 PRINT"QUANTI 1 ?"; ” 90 Ni=VALC(A$):IF N1>MAX THEN 80 
655 NM=13-N% ° 100 N2=13-N1-NX 
75 GOSUE 10060 :N1=VALCR£I - 119 A=N1:B=N2:C=NX 
80 IFNI<G OR Ni >MM THENSS 120 CLS : PRINT TL$ 
85 K2 = 13 - NI - NX 139 FORI =1 TO 13 
90 A=NI : B=N2 : C=NX :TT=0 140 I$ = CHR$C32)+STR$CI) : I$ = RIGHT$CI$,2) 
95 PRINT TL$ :FRINT Ù 159 PRINT"PARTITA ":1$;CHR$(32); 
100 FOR J=1 TO 13 169 N=RND(3) : NA=RNDC100) 
110 N$ = STR$(J) : R#= RIGHT$C(N$,2) * 165 IF N=2 AND NA > 25 THEN 160 
120 PRINT. "PARTITA ";N$; x 176 IF N=1 AND N1=6 THEN 160 
130 N=INTCRNDC1)#3) RR 189 IF N=2 AND N2=0 THEN 160 
149 IFN= 1 AHD Ni = 6 THEN 156 ; 190 IF N=3 AND NX=@ THEN 1656 
141 IFN= 2 AND N2 = 6 THEN 1309 PI 2609 IF N=1 THEN PRINT" 1" : Ni=NM1-1 
142 IF N = 69 AND Na = 6 THEN 136 = 219 IF N=2 THEN FRINT " 2" : N2=N2-1 
144 IFN=6THEMPRINTTABC11+TT3" #":NX=NX=1 bb : 229 IF N=3 THEN PRINT " x" : NX=NX-1 
145 IFN=1THENPRINTTABC11+TT>" 1":Mi=M1=1 È 2309 NEXT 
146 IFN=2THENPRINTTABC11+TT>" 2":N2=N2-1 ro 249 PRINT@448, "VUOI ALTRA COLONNA" 
159 NEXT : PRINT sa 259 INPUT"CS#N)";R$ 
169 0$="":PRINT"ALTRA COLONNA ? CS/H5"; È 269 IF R$ <> "S" AND R$ <> "N" THEN 240 
170 GETWHS: IFU$="N"THENPRINTCHR$C147):END . 270 IF R$ = "N" THEN CLS : END 
175 IF W$<>"S" THEN 170 La 289 Ni = A: N° = B: NMK=C 
120 NI=A : N2 = B: NK=C È > N 296 GOTO 126 
190 TT=TT+2:IFTT2?THEH TT=9 :GUT095 x 4 1000 CLS : PRINT TL$ 
209 PRINT CHR$(13);CHR$(17);CHR$C173; - 1010 PRINT@E4,S$ 
Z15 GOTO 106 > ci 1920 INPUT"PREVEDI IN SCHEDINA":A$ 
1000 R$="" 1030 IF ASCCR$) > S7? OR ASCCR$)<48 THEN 1000 
1020 POKE204,6:GET A$:IFA$=""THEN1026 le 1A4A RETURN 
1922 IF A$=CHR$(20)ANDLENCR$>)>OTHEHIO7O 2 
1024 POKE204, 1 a READ. 


1925 IFA$=CHR$(13}THENPRINTCHR$C325 :RETURN 
1536 IF A$ < "0 DE R$ > "9" THEN 1020 
1935 IF LENCR$)21 THEN 1920 

1040 PRINT A$; 

1050 R$=R$+A$ 

1050 GOTO 1920 i 

16979 PRINTA$; :R$=RIGHT$CR$,LENCR$)-1) 

1071 GOTDIOZA 


READY. 


Crm DIE. -D*NDGINT.IE DEI NINERNSESEZN 


N 


uf 


REM XKXKKKKKKKKKKKKKKKKKXKX 
Xk TOTO RANDOM XX 
KEKXLKKKKKEKKKKKKKKKKKXXXK 

REM ** PER COMPUTER XX 
X* LASER 500 Kk 

REM *KKKKKKEKEKXKKKKKKKKXKXX 


ari 
3 


REM *XKKKKKKKXXKKKKKKKKXXX{X% 
REM *% TOTO RANDOM *k 
REM KKKKKKKKKKKKKEKKKKXKXKXX 
REM XX PER COMPUTER Kk 
X*  MSX E GW-BASIC %*X 
REM XKKKKKKKKKKKKKXKKKKXKXX 


DI 
me 
Za 

» n 


REM SCUOLA SCHEIDEGGER 
REM 

CLS:RANDOMIZE TIMER 
TL$="TOTO RANDOM" 
S$="QUANTE X" 


| 
IDIUSGYNE 
fl 
m 
= 


No 
(eMei 

d 

m 

cd 
nm n 
n'a" 
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REM SCUOLA SCHEIDEGGER 


DLDISNTNSWYN 
DUI 
mumuo 
Za 


CLS :RANDOMIZE 
TL$="TOTO RANDOM" 


30 S$="QUANTE X" 63 
40 GOSUB 1000 40 GOSUB 1000 

PAGINA | 50 NX=NI:IF NX>13 THEN 40 Ki 50 NX=NI:IF NX>13 THEN 40 PAGINI 
Gi 60 MAX=13-NX 


60 MAX=13-NX 
10 70 S$="QUANTI 1" 70 S$="QUANTI 1" 11 
GOSUB 1000 


80 GOSUB 1000 
90 N1=NI:IF Ni>MAX THEN 80 N1=NI:IF Ni>MAX THEN 80 
N2=13-N1-NX 


100 N2=13-N1-NX 

110 A=Ni:B=N2:C=NX A=N1:B=N2:C=NX 

120 CLS:PRINT TL$ :PRINT CLS:PRINT TL$ :PRINT 
FOR I=1 TO 13 


[ee seeli mesto + 05 *] 
WNeEOOSO 
(eee) 


130 FOR I=1i TO 13 
140 PRINT "FARTITA ": aan 140 PRINT "PARTITA ": 
150 PRINT USING "##":1I: 53 150 PRINT USING "##%:1I: 
160 N=INT(RND*3)+1 Te 160 N=INT(RNDX3)+1 
170 IF N=i AND Ni=0 THEN 160 È = 170 IF N=1i AND Ni=0 THEN 160 
180 IF N=2 AND N2=0 THEN 160 “ 180 IF N=2 AND N2=0 THEN 160 
190 IF N=3 AND NX=0 THEN 160 6-3 O 190 IF N=3 AND NX=0 THEN 160 
200 IF N=i THEN PRINT " 1":Ni=N1-1 


200 IF N=1 THEN PRINT " 1i":Ni=N1-1 

210 IF N=2 THEN PRINT " 2":N2=N2-1 

220 IF N=3 THEN PRINT " X":NX=NX-1 

230 NEXT I 

240 PRINT CHR$(27):CHR$(161):CHR$(32):CHR$(48): "VUOI UN'ALTRA 
COLONNA (S/N) . 

250 PRINT CHR$(27):CHR$(161):CHR$(60):CHR$(4B)::LINE INPUT R$ » 

260 IF R$<>"S" AND R$<>"s" AND R$<>"N" AND R$<>"n" THEN 240 « 

270 IF R$="n" OR R$="N" THEN CLS:END 

280 Ni=A:N2=B:NX=C 

290 GOTO 120 

1000 CLS:PRINT TL$ 

1010 PRINT :PRINT S$ 

1020 INPUT "PREVEDI IN SCHEDINA":A$ 

1030 IF A$<"0" OR AS$>"9" THEN 1000 


210 IF N=2 THEN PRINT " 2":N2=N2-1 

220 IF N=3 THEN PRINT "  X":NX=NX-1 

NEXT I 

PRINT :PRINT "VUOI UN'ALTRA COLONNA" = 
250 LOCATE 17,23,1:R$=INPUT$(1):LOCATE,,0 

260 IF R$<>"S" AND R$<>"s" AND R$<>"N" AND R$<>"n" THEN 250 
270 IF R$="n" OR R$="N" THEN CLS:END 

280 Ni=A:N2=B:NX=C 

290 GOTO 120 

1000 CLS:PRINT TL$ 

1010 -PRINT :PRINT S$ 

1020 INPUT "PREVEDI IN SCHEDINA":A$ 

1030 IF A$<"0" OR AS$>"9" THEN 1000 

1040 NI=VALC(A$) 


TOT 


1040 NI=VAL(A$) 1050 RETURN 

1050 RETURN 

CC cr E EIN I pie ; 
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L'istruzione REM modifica l'esecuzione di un programma? {0 


UNITÀ DIDATTICA DUE I EF ‘Quali simboli tra i seguenti sono»*segni di sintassi? 
n e + SID at 
E- i Si No 
Obiettivo 1 E DI a Riga 
Le operazioni di INPUT permettono di & ° SiO No} 
Y Inserire D Ricevere O Elaborare e calcolare ! Sim No D] 
informazioni nella memoria centrale -- : Sig No O 
PAGINA Leal * SiO No® 
Le operazioni di OUTPUT permettono di E | 4 | segni di sintassi servono a a 
1 2 O Inserire icevere QD Elaborare e calcolare FE È=l Semplificare O Complicare 13 
Obiettivo 2 D la scrittura di un programma 
La memoria di sola lettura può essere modificata SID No sla l'segni dì sintassi 
La memoria modificata è chiamata RAM SIX NoD Miglior mi E Parti 
| dati depositati nella memoria RAM prendono il nome di variabili S)=d No O FSE s 4 SUO 
A si = masvoralmento di un programma perchè permettono di scrivere più valori o istruzioni sulla 
Obiettivo 3 ga. 
Il simbolo $ indica variabili numeriche intere SID NoXkf 623 Obiettivo 6 
Il simbolo % indica variabili alfanumeriche SID, NoTK ba Quale tasto conclude lo svolgimento di un'istruzione INPUT? 
Il simbolo $ indica variabili alfanumeriche Ss No LI CI Un qualunque tasto di editing 
Le variabili alfanumeriche sono indicate da nessun simbolo SiO NoK * sii O Un qualunque tasto di controllo 
ra 853 11 tasto di immissione 
Obiettivo 4 O Il tasto CTRL 


Eseguire al computer gli esempi proposti dal manuale del corso per l'obiettivo 4. 
Se vengono eseguiti i seguenti comandi diretti, quale numero verrà stampato alla fine? 


Perfacilitare la risposta abbiamo predisposto di fianco ad ogni linea degli spazi in cui scri- 
vere i valori delle variabili dopo l'esecuzione della linea. 


î Quale segno di sintassi si utilizza per inserire contemporaneamente due o più valori duran- 
te l'esecuzione di un'istruzione INPUT? 


XK. mos Ga 


CULI 


Es A= B= Ci 0 L'istruzione INPUT A$ 
LET A=5 SAR PI af cala Può provocare l'errore REDO FROM START? SID. NoRT 
LET B=A+A a=L__ B=_l0 CSS a A L'istruzione INPUT A,B 
LET C=B-A/2 Aci Lal C= A ela può provocare l'errore REDO FROM START? SIX NoO 

i ai La b | i L'istruzione INPUT K 
LET C=C+B A=-fin "Bas 40° c 39008 3 può provocare l'errore REDO FROM START? SIR. Nol 
PRINT C Il 
Alla fine il valore stampato sul video sarà: 5 sà Obiettivo 7 
; b; È conveniente, per una buona tecnica di programmazione, cancellare 
Obiettivo 5 i . Sì il video all'inizio del programma? SIX No (ta 
Eseguire al computer gli esempi proposti dal manuale del corso per l'obiettivo 5. S* ? 
Quale istruzione permette di inserire commenti in un programma? I g PROMPTING corrisponde a: 
O RUN © CLS 4 REM O LIST | O Una periferica O Una tecnica di programmazione 
Kun segno di sintassi O Non esiste come termine 


n 


VR tn 


tv 


Scrivere alcuni programmi (in pseudo linguaggio) come: 
Calcolo dell’area di un quadrato 

Calcolo della somma tra due numeri 

Calcolo dell’area di un trapezio 


Esercizio finale unità didattica due 
Dare il comando NEW 


Digitare il programma allegato con molta attenzione in particolare per i seguenti segni: vir- 
gole, punto e virgola, segni speciali come $ (dollaro), parentesi, spaziature (che devono es- 
sere scritte esattamente come nel listato). 


rasina] In particolare: il segno ” sta ad indicare le virgolette, mentre il segno ’ sta ad indicare 
l'accento (0 l’apostrofo). 


1 4 Tutti i segni di sintassi, gli spazi od altri simboli, devono essere scritti esattamente come nel 
listato. 


Ricordarsi di premere il tasto di immissione (Enter o Return) alla fine di ogni riga del li- 
stato. 


Dopo l'inserimento di tutte le righe provare a: 

— Fare eseguire il programma. 

— Correggere gli eventuali errori (segnalati dal messaggio Syntax Error del computer). 

— Salvare il programma su nastro o dischetto (quando è corretto e funziona). 

— Verificare che il salvataggio del programma sia stato eseguito regolarmente. 

— Dopo la verifica spegnere il computer e provare a caricare dal nastro o dal dischetto il 
programma, per eseguirlo ancora. 


tt , ". 
Potrete incontrare delle difficoltà nella realizzazione delle operazioni elencate sopra, dovu- 
te soprattutto alla vostra inesperienza, ma non scoraggiatevi per così poco. 


Consultate attentamente i manuali, per quanto riguarda le modalità da seguire e provate a 
ripetere da capo tutto quanto, finchè non diventerà più semplice utilizzare la tastiera del vo- 
stro computer ed i comandi di sistema di cui sopra. 


10 CLS 

15 INPUT "COME TI CHIAMI":N1$ 

20 INPUT "QUANTI ANNI HAI":;Ei 

25 INPUT "HAI UN FRATELLO (SI/NO)":R$ 

30 IF R$="SI1" THEN 100 

35 IF R$<>"NO" THEN 25 

40 INPUT "HAI UNA SORELLA (SI/NO)":R$ 

45 IF R$="SI" THEN 100 

50 IF R$<>"NO" THEN 40 

55 INPUT “HAI UN AMICO O UN‘AMICA (SI/NO)"“:R$ 

60 IF R$="SI" THEN 100 

65 IF R$<>"NO" THEN 55 

70 CLS 

80 PRINT "CIAO “:N1$:" IO SONO UN COMPUTER E SARO’ TUO AMICO !!" 
90 END 

100 INPUT "COME SI CHIAMA":N2$ 

105 INPUT "QUANTI ANNI HA":E2 

110 CLS 

115 PRINT N1$ 

120 IF E1>E2 THEN PRINT “HAI":E1-E2:"“ANNI IN PIU’ DI" 
125 IF Ei=E2 THEN PRINT "HAI LA STESSA ETA’ DI" 

130 IF E1<E2 THEN PRINT “"HAI":E2-Ei:"ANNI IN MENO DI" 
135 PRINT N2$ 

140 INPUT "VUOI RIPROVARE (SI/NO)":R$ 

145 IF R$="SI" THEN 10 

150 IF R$="NO" THEN 70 

160 GOTO 140 


— 


UNITÀ DIDATTICA TRE 

Obiettivo 1 e 2 

L'istruzione GOTO è un'istruzione di: 

O Input K Output O Elaborazione 


Dopo aver trovato un'istruzione GOTO il computer è obbligato 
a saltare alla riga indicata? 


È possibie scrivere un programma senza fine? 


se si: 

Sf scrivere l'istruzione necessaria per rendere senza fine un programma 
b) Quale tasto di controllo si usa per interrompere un programma senza fine? SAFAK 
se no, analizzate attentamente il programma: 


10 PRINT “SENZA”; 
20 PRINT “FINE!”; 
30 GOTO 10 


e rispondere alla domanda: 


Dopo aver inserito illprogramma e aver.dato il TandaRUN, quante volte vengono scritte 
le parole “SENZA FINE”? O LITE I te 


Obiettivo 3 


Gli operatori relazionali servono per confrontare due valori? siO No far 
Le scelte si eseguono con l'istruzione: 
—-  DGOTO O LET DIF... THEN. DINPUT 
_\Obiettivo 5 
Gli operatori logici servono per effettuare più confronti 
per controllare un'unica scelta Sid NoM 


In un programma si pone il problema di effettuare una scelta se un numero è compreso tra 1 
e 12; completate la seguente istruzione con l'operatore logico appropriato: 


IFN>DO ____N<13 THEN PRINT “NUMERO COMPRESO TRA 1E12” 
L'istruzione ; 


IF. 5> 3 THEN PRINT “MAGGIORE” ELSE PRINT “MINORE” 


— scrive “MAGGIORE” 
— scrive “MINORE” 
— non scrive niente 


L'istruzione 


IF 5< 3 THEN PRINT “MAGGIORE” ELSE PRINT “MINORE” 
— scrive “MAGGIORE” 

— scrive “MINORE” 

— non scrive niente 


LY 2 rc r——————__m_c@tt@@@Q000053 20-45] 


tl 


PAGINA 
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Obiettivo 6 

Fate eseguire: 

PRINT SQR(25) 

dal risultato che cosa si può dire del calcolo che viene effettuato da SQR? 


— Il risultato è l’argomrento tra parentesi privato del segno 3 
— Il risultato è la radice quadrata dell'argomento tra parentesi 
— Il risultato è il quadrato dell'argomento tra parentesi 


Fate eseguire: 
PRINT INT(10.9) 
scrivete il risultato % 
Che tipo di operazione è stata compiuta sull'argomento? 


© Arrotondamento al numero intero più vicino 
D Troncamento della parte decimale 

O Eliminazione « della parte intera 
‘E Nessuna 


Inserire e fate eseguire il programma: 


10 CLS 
20 INPUT “NUMERO DA CONTROLLARE”;N 


30 PRINT “IL NUMERO INSERITO È”; 

40 IF N<INT(N) THEN PRINT “DECIMALE” ELSE PRINT “INTERO” 

che cosa fa. il programma? 

O Niente 

© Non funziona perchè alla linea 30 c'è un errore ; 
D Riconosce i numeri interi da quelli decimali 

T6 Riconosce i numeri pari da quelli dispari 


Obiettivo 7 i 
Le funzioni di editing vengono utilizzate per controllare l'’OUTPUT di un 
programma e per il posizionamento del cursore sul video? 


Le funzioni di editing TAB e SPC sono utilizzate con l'istruzione PRINT 


per scrivere in un punto voluto del video? SIA NoD 


Obiettivo 9 
Eseguire al computer l'esempio proposto dal manuale del corso per l’obiettivo 9; 


se la linea 20 viene cambiata in: 


20 LET N=N*3 
tra quali numeri sarà compreso il numero pseudo-casuale generato dal programma? 


Afitrat1e2z  Otrate3  Otrate4  Otrate5 Otrate6 


siO No i 


— vv 


biettivo 10 


| Eseguire al computer il programma calcolo aree superfici piane. 


Analizzare il punto 6 per la scelta numero 2, calcolo area cerchio. 
SCELTA 2: CALCOLO AREA CERCHIO 


1è- 
2- 
3.- 
4- 
5- 
6- 
78 
8- 


Inserire il seguente programma: 


10 INPUT “NUMERO DA CONTROLLARE”;N 
20 PRINT “IL NUMERO INSERITO È” 
30 IF N/2=INT(N/2) THEN PRINT “PARI” ELSE PRINT “DISPARI” 


Date RUN; come vedrete il programma riconoscerà i numeri pari da quelli dispari. 
Vi ricordiamo che i numeri pari sono divisibili per due. 


Il programma per riconoscere se un numero è divisibile per due effettua, a linea 30, il con- 
fronto tra il numero diviso per due e la parte intera del numero diviso per due. 


Un numero è divisibile per due se la sua divisione per due ha come risultato un numero inte- 
ro; la parte intera di un numero intero è ovviamente uguale al numero intero e quindi un con- 
fronto di uguaglianza di questo tipo può stabilire se un numero è divisibile per un altro. 


Trasformate ora il programma in modo da renderlo in grado di riconoscere i numeri divisibili 
per tre. 


Riportate qua sotto la linea 30 modificata 
30 IF 


Esercizi finali unità didattica tre 


A: preparare un elenco completo di tutto il vocabolario basic appreso, facendo gli opportu- 
ni commenti alle diverse voci, spiegando qual'è l’uso di ogni comando, istruzione o sim- 


bolo. 
Tutto il vocabolario basic appreso dovrà essere elencato suddividendo i vocaboli appresi 
in sette capitoli, come proposto dal seguente esempio. 


1 - comandi di sistema 
esempio: RUN permette di eseguire il programma esistente in memoria 


MNNESTEIER Ie te e Nenni 


PAGINA 


PAGINA 
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2 - variabili 


esempio: alfanumeriche, contengono qualsiasi carattere ed hanno ilsegno $ come ultimo 
carattere del nome 


3 - costanti 
esempio: numeriche reali o intere sono numeri interi o decimali 


4 - operatori 


esempi: — matematici : «indica moltiplicazione 
— logici : AND indica contemporaneità 
— relazionali : > = indica maggiore o uguale 


5 - segni di sintassi 


esempi: $ (dollaro) indica il tipo di variabile (alfanumerica); 
; (punto e virgola) usato con l'istruzione PRINT per scrivere sulla stessa riga op- 
pure dopo un'istruzione del tipo INPUT “messaggio”; NOME in cui il punto e vir- 
gola ha la funzione di separare il nome della variabile dal messaggio tra virgolet- 
te. 


6 - funzioni 


esempi: — matematiche : INT(arg) determina l’intero del valore indicato tra parentesi; 
— di editing : TAB(arg) stabilisce il punto di tabulazione alla posizione indicata 
tra parentesi 


7 - istruzioni basic 
esempi: — PRINT scrive sul video ciò che è indicato dopo l'istruzione stessa (es.: PRINT 
10 scrive il numero 10) 
— INPUT è un'istruzione che chiede di inserire un dato ed assegna il valore ad 
una variabile. Il nome della variabile deve essere messo dopo l’istruzione. 
Se si usa un'istruzione tipo: INPUT “messaggio”; NOME occorre mettere il pun- 
to e virgola per separare il nome della variabile dal messaggio tra virgolette. 
B: digitare il programma allegato seguendo le (ormai) solite regole: 
1 - Dare NEW prima di digitare il programma 


2 - Inserire le righe esattamente come sono scritte, rispettando i segni di sintassi, gli spazi, 
ecc. 


8 - Ricordarsi di premere il tasto di immissione alla fine di ogni riga 


4 - Listare, controllare ed eventualmente correggere il programma come spiegato prece- 
dentemente 


5 - Fareseguire il programma e controllarne il corretto funzionamento, apportando le cor- 
rezioni che dovessero rendersi necessarie. 


6 - Salvare il programma su nastro o dischetto. 


REM ** TABELLE NUMERICHE XX 

REM 

REM LEZIONE 4 

REM 

REM VERSIONE LASER 110/310 

REM 

PRINT CHR$(31); "TABELLE NUMERICHE" :PRINT 


PRINT "1- PITAGORICA 2- QUADRATI/CUBI":PRINT 
PRINT "3- NUMERI PRIMI 4- FINE":PRINT 
INPUT "QUALE SCELTA":5C:IF SC>4 OR SC<i THEN 10 
IF SC=4 THEN PRINT CHR$(31):END 

IF SC=3 THEN 300 

IF SC=2 THEN 200 

PRINT CHR$(31):"TAVOLA PITAGORICA":PRINT 
FOR I=1 TO 10 

FOR J=i TO 10 

N=1%J 

N$=STR$(N) 

N$="  ‘+N$ 

N$=RIGHT$ (N$,3) 

PRINT N$: 

NEXT J:PRINT 

NEXT I:PRINT 

INPUT "VUOI RIVEDERE (SI/NO)":R$ 

IF R$="SI" THEN 100 

IF R$<>"NO" THEN 165 

GOTO 10 

PRINT CHR$(31):"TAVOLA QUADRATI E CUBI":PRINT 
PRINT "N. N*2  N43":PRINT 

FOR I=1 TO 10 

I8=STR$(1) 

I$=" "+18 

I$=RIGHT$(I$,2) 

N2=I*I:N3=1%I*I 

N2$=STR$(N2) 

N2$=" “+N2$ 

N2$=RIGHT$(N2$,5) 

N3$=STR$(N3) 

N3$=" "+N3$ 

N3$=RIGHT$(N3$,5) 

PRINT 1$:N2$:N3$ 

NEXT 1:PRINT 

INPUT "VUOI RIVEDERE (SI/NO)":R$ 

IF R$="SI" THEN 200 

IF R$<>"NO" THEN 280 

GOTO 10° 

PRINT CHR$(31):"NUMERI PRIMI TRA 1 E 500":PRINT 
FOR I=i TO 500 

N=INT(SOR(1)+1) 

FOR J=2 TO N 

P=I 

N$=STR$(P) 


345 Ng=" “+N$ 


N$=RIGHT$ (N$,4) 


355 IF INT(I/J)=1/J THEN P=0:J=N 
360 NEXT J 

365 IF P<>0 OR I<3 THEN PRINT Né: 
370 NEXT I:PRINT:PRINT : 

375 INPUT “VUOI RIVEDERE (SI/NO)":R$ 
380 IF R$="SI" THEN 300° 

985 IF R$<>"“NO" THEN 375 


GOTO 10 


do 


PAGINA 
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Aix ## TABELLE NUMERICHE ** 
REM LEZIONE 4 


REM 
REL VERSIONE COMMODORE VIC 20 


PRINTCHR$C147); "TABELLE NUMERICHE" :PRINT 
PRINT"1-PITAGORA 2-QUAD/CUBI": PRINT 
PRINT"3-N.PRIMI 4- FINE":PRINT 
INPUT"QUALE SCELTA";SC : IF SC>4ORSCCITHEN 18 
IF SC=4 THEN PRINTCHR$C147) : END 
IF SC=3THEN 300 
IF SC=2THEN 268 
PRINTCHR$(147); "TAVOLA PITAGORICA":PRINT 
FORI=1T07 
FOR J=1T07 


130 N=I%J 
135 N$=STR$CN) 


N$=" "+N$ 
H$=RIGHT$(N$,3) 

PRINTN$; 

NEXTIJ : PRINT 

NEXT I :PRINT 
R$="":INPUT"ANCORA (SI/NO)";R$ 
IF R$="SI" THEN 1600 

IF R$C>"NO" THEN 165 

GOTO 10 


209 PRINTCHR$C147); "TAVOLA QUADRATI E CUBI":PRINT 
205 PRINT " N. Nî2 Nî3":PRINT 

210 FOR I= 1 TO 10 

212 I$=STR$CI) 


19="  ‘+1$ 
I$=RIGHT$(I$,2) 

N2=1#I : N3=I#I#I 

N2$=STR$CN2) 

N2$=" "+N2$ 
N2$=RIGHT$CN2$,5) 

N3$=STR$CN3) 

N3$=" "+N3$ 
N3$=RIGHT$CN3$,5) 

PRINT I$;N2$;N3$ 

NEXT I : PRINT 
R$="":INPUT"ANCORA €SI/ZNO) ";R$ 


285 IF R$="SI" THEN 2006 

290 IF R$C>"NO" THEN 280 

295 GOTO 10 

300 PRINTCHR$(147);"N. PRIMI TRA 1 E 596":PRINT 


310 FOR I = 1 TO 500 


M=INTCSORCI)+1) 
FORJ=2 TON 


P=I 

N$=STR$CP) 

Né= “" " +N$ 

N$=RIGHT$CN$,4) 

IF INTCI/Jò) = I/J THEN P=6 : J=N 
MERT JI 

IF P<>9 OR I<STHEN PRINT N$; 
IFPOSC(X)D18THEN PRINT 

NEXT.I : PRINT 
Rs="":INPUT"ANCORA <SI/NO) ";R$ 


IF R$="SI" THEN 300 
IF _R$<>"NO" THEN 375 
GOTO 10 


10 RESI #% TABELLE NUMERICHE ## 


11 REM 

12 REM LEZIONE 4 

13 REM 

14 REM VERSIONE COMMODORE 64 
15 REM 


20 PRINTCHR$(147); "TABELLE NUMERICHE" :PRINT 
30 PRINT"1-PITAGORICA 2-GUADRATI/CUBI":PRINT 
46 PRINT"3-NUMERI PRIMI 4- FINE":PRINT 


INPUT“GUALE SCELTA";SC : IF SC>4ORSCCK1ITHEN 10 
IF SC=4 THEN PRINTCHR$(147) : END 


76 IF SC=3THEN 300 
86 IF SC=2THEN 206 


PRINTCHR$(147); "TAVOLA PITAGORICA" : PRINT 


FOR I = 1 TO 16 
FOR J= 1 TO 10 
N=1#J 
N$=STR$CN) 

N$= “" ”" +N$ 
N$=RIGHT$(N$,3) 
PRINTN$; 


NEXTJ  : PRINT 

NEXT I : PRINT 

INPUT“VUDI RIVEDERE €SI/NO) ";R$ 
IF R$="SI" THEN 100 

IF R$C>"NO" THEN 165 

GOTO 10 

PRINTCHR$(147); “TAVOLA QUADRATI E CUBI":PRINT 
PRINT " N. Nî2 Nî3":PRINT 

FOR I = 1 TO 10 

I$=STR$CI) 

I$=" ‘“+1$ 

I$=RIGHT$(I$,2) 

N2=I#I : N3=1#1#I 

N2$=STR$(N2) 

N2$=" "+N2$ 
N2$=RIGHT$(N2$,5) 

N3$=STR$ (N3) 

N3$=" "+N3$ 
N3$=RIGHT$(N3$,5) 

PRINT I$;N2$;N3$ 

NEXT I : PRINT 

INPUT"VUOI RIVEDERE <€SI/ZNO) ";R$ 
IF R$="SI" THEN 200 

IF_R$C>"NO" THEN 280 

GOTO 10 

PRINTCHR$(147); "NUMERI PRIMI TRA 1 E 50@":PRINT 
FOR I = 1 TO 500 
N=INTCSORCI)+1) 

FORJ=2 TON 


P=I 

N$=STR$(P) 

N$=" N+N$ 

N$=RIGHT$C(N$,4) 

IF INTCIZI) = IZJ THEN P=@ : J=N 


NEXT J 
IF P<>@ OR IC3THEN PRINT N$; 
NEXT_I : PRINT 

INPUT"VUOI RIVEDERE CSIZNO) “;R$ 
IF R$="SI" THEN 300 

IF_R$C>"NO" THEN 375 

GOTO 10 


PAGINA 
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Fora A N 


10 REM ** TABELLE NUMERICHE %X% 


11 REM 

DI (BEE a o UNITÀ DIDATTICA QUATTRO 
13 REM 

14 REM VERSIONE PER LASER 500 

15 REM MSX E GW-BASIC \ 

16 REM Obiettivo 1 e 2 


20 CLS:PRINT "TABELLE NUMERICHE":PRINT 

30 PRINT "1 - PITAGORICA 2 - QUADRATI/CUBI":PRINT 
40 PRINT “3 - NUMERI PRIMI 4 - FINE":PRINT 

50 INPUT "QUALE SCELTA":SC:IF SC>4 OR SC<1 THEN 20 
60 IF SC=4 THEN CLS:END t 

70 IF SC=3 THEN 300 

80 IF SC=2 THEN 200 

100 CLS:PRINT TAB(12):; "TAVOLA PITAGORICA":PRINT 

110 FOR I=s1i TO 10 


La frase FOR .. NEXT viene utilizzata per: 
O effettuare una scelta 
ripetere un certo numero di volte delle istruzioni 


O fare lampeggiare il cursore cr 
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Introdurre il seguente programma, dare RUN 
10 FOR X=2 TO 14 STEP 2 


120 FOR J=i TO.10 

i .  2OPRINT , 

140 PRINT USING"####":N: 

150 NEXT J Scrivere in breve che,cosa fa il programma r î 

160 NEXT I:PRINT:PRINT = . d a) 
170 INPUT "VUOI RIVEDERE (SI/NO) ":R$ Genlino «Ol a eu du alia Gi 
180 IF R$="SI" THEN 100 : 
185 IF R$<>"NO" THEN 170 ORIINNIA® 


190 GOTO 10 

200 CLS:PRINT TAB(8):"TAVOLA QUADRATI E CUBI" :PRINT 
210 PRINT " N. N*2 N*3":PRINT 

220 FOR I=si TO 10 

230 PRINT USING"##"/1I: 

240 N2=IXI:N3=IXIXI 

250 PRINT USING"#####":N2:N3 

260 NEXT I:PRINT 

270 INPUT "VUOI RIVEDERE (SI/NO) ":R$ 

280 IF R$="SI" THEN 200 

285 IF R$<>"NO" THEN 270 

290 GOTO 10 

300 CLS:PRINT TAB(9): "NUMERI PRIMI TRA i E 500":PRINT 
310 FOR I=si TO 500 

320 N=INT(SGR(I)+1) 

330 FOR 3J=2 TO N 


Tradurre in un programma BASIC la seguente frase: 

contando da tre fino a quindici di due in due, stampa il numero del conteggio. 

Provare il programma sul computer e verificare che faccia effettivamente quanto richiesto. 
Trascrivere il programma nello spazio seguente 


MO FORX=3T0 45 STERL 
20 PRINTX 
ONE I LR RR 


340 P=I 
350 IF INT(1/J)=1/J THEN P=0:J=N 
360 NEXT J 
365 IF P<>0 OR I<3 THEN PRINT USING"####";1I: 
370 NEXT I:PRINT:PRINT Obiettivo 3 
375 INPUT "VUOI RIVEDERE (SI/NO) ":R$ Inserire il seguente programma e date RUN: 
380 IF R$="SI]" THEN 300 
385 IF R$<>"NO" THEN 270 10 FOR X=1 T0.10 
390 GOTO 10 20 FOR Y=1 TO 10 
30 PRINT XY; 
40 NEXT Y 
50 PRINT 
60 NEXT X 


Il programma usa due cicli concatenati, il primo viene eseguito 10 volte ed il secondo, con- 
tenuto nel primo, viene eseguito 10 volte ad ogni esecuzione del primo ciclo; quindi il ciclo 
interno viene eseguito in tutto 100 volte. 


———@—=<==<=mm 


ab 


Se la linea 20 viene cambiata in: 
20 FOR Y=1 TO 5 


quante volte in tutto verrà eseguito il ciclo interno? 50 
(provare a modificare il programma inserito) 


La - 
Obiettivo 4, 5, 6 
Verificare al computer l’effetto degli esempi proposti nell’obiettivo 4. 


Scrivere l'espressione necessaria per assegnare alla variabile A$ il concatenamento di 
“prova d” con ” i concatenazione” 


A$= 
2 4 viene eseguita l'istruzione 


A$ = “ARANCE MELE UVA” * NAPO Li MILANO como?’ 


Quale funzione va utilizzata per assegnare a B$ “ARANCE”? 


O LEFT$ XMID$ O RIGHT$ vaeou 


Scrivere l'istruzione da eseguire per assegnare “ARANCE” a B$ prelevando i caratteri 
necessari da A$ 


B$= PLPTA:(04 Cc) 


i i i VER 
Scrivere l'struzione da eseguire per assegnare “M ” a B$ prelevando i caratteri neces- 
sari da A$ 


Bs= RIGHTI$GSL 


Scrivere l'istruzione da eseguire per assegnare SIA Os prelevando i caratteri necessari 
da A$ ; 


es=Mipd (89,80) 

Quale è il compito della funzione LEN (argomento)? 
{Trasformare l'argomento in caratteri 

Calcolare il numero di caratteri dell'argomento 

D Estrarre i primi dieci caratteri dell'argomento 


PAGINA 


D agrà 
ge 


Facendo eseguire l'istruzione 
A$=STR$(678) 

quale contenuto avrà A$? 

D “123” OD “678”. PG 678” DO“ 123, 


Facendo eseguire l'istruzione 
A=VAL(“12A3”) 


Quale contenuto avrà A? 
0123 DA Sp. 01243 


Er zzo IEEE A 


— vb 


Inserire il seguente programma: 


10 CLS 

20 INPUT “INSERIRE UN NUMERO”;N$ 

30 N=VAL(N$) 

40 N1$=STR$(N) 

50 IF LEFT$(N1$,1)=" “THEN N1$=MID$(N1$,2) 

60 IF N$<SN1$ THEN PRINT “INSERIRE SOLO NUMERI 1!”:GOTO 20 
70 PRINT “IL NUMERO È STATO INSERITO CORRETTAMENTE” 


Date RUN e provate ad immettere, alla richiesta di inserimento, un numero in modo corretto 
(solo numeri) od in modo non corretto (numeri, lettere, simboli, ecc) in modo da rendervi 
conto di come funziona il programma e di come si possono utilizzare le funzioni di conver- 
sione e di manipolazione delle stringhe. PAGINA 


Commentate brevemente ogni riga del programma. 

dc 25 
20 - 
30 - 
40 - 
50 - 
60 - 
70 - 


Esercizi finali unità didattica quattro 


A: completare l’elenco del vocabolario basic (preparato come esercizio della precedente 
unità didattica), inserendo le voci apprese in questa unità didattica. 

B: digitare il programma allegato, secondo le regole già viste per i programmi digitati nelle 
precedenti esercitazioni. 


C: salvare il programma su nastro o dischetto. 


Note per la digitazione del programma 

Il basic del computer usato per realizzare il programma dispone dell'istruzione CLS per 
cancellare lo schermo. 

Se ilvostro computer NON possiede tale istruzione, occorrerà SOSTITUIRE tutte le istruzio- 
ni CLS con l'equivalente istruzione che permette la cancellazione dello schermo. 

Tale sostituzione DEVE essere eseguita in tutte le righe in cui compare l'istruzione CLS. 
Controllare inoltre se il vostro computer accetta tutte le istruzioni, funzioni, ecc. che com- 
paiono nel listato. 

In caso contrario consultare attentamente il manuale del vostro computer, per trovare le 
istruzioni equivalenti a quelle del listato e sostituirle con le istruzioni che il vostro computer 
accetta. 

Vengono proposti due differenti listati allo scopo di permettere la scelta della problematica 
che si ritiene più interessante da affrontare. 


— vb 


Il primo listato propone la gestione di un magazzino, il secondo listato propone la gestione 


di una rubrica telefonica. 


Dopo aver scelto tra i due programmi quello preferito, è indispensabile che tale scelta ven- 
ga mantenuta costante per tutto il proseguimento del corso (pena il dover ripetere tutte le 


esercitazioni). 


REM ** MAGAZZINO VERSIONE 1 *X 
REM ** VETTORI E SUBROUTINES XX 


PRINT "MAGAZZINO" :PRINT 

PRINT "1 - INSERIMENTO 2 - LETTURA" :PRINT 
PRINT "3 - MODIFICA 4 - FINE":PRINT 
INPUT "COSA SCEGLI":R$ 


IF R$="1" THEN M$="INSERIMENTO MAGAZZINO" :GOSUB 100 
IF R$="2" THEN M$="LETTURA MAGAZZINO" :GOSUB 200 

IF R$="3" THEN M$="MODIFICA MAGAZZINO" :GOSUB 300 

IF R$="4" THEN CLS:END 

GOTO 10 


100 REM XX INSERIMENTO *% 


FOR I=i TO 10 


120 CLS:PRINT M$:PRINT 

125 PRINT "ARTICOLO N.":I:PRINT 

130 INPUT "DESCRIZIONE":D$(I):PRINT 

135 INPUT "PREZZO":P(I):PRINT 

140 PRINT "F = FINE A = ALTRO INSERIMENTO" :PRINT 


INPUT "COSA SCEGLI":5$ 


150 IF S$<>"A" AND S$<>"F" THEN 140 


IF S$="F" THEN I=11i 
NEXT I 


180 RETURN 

200 REM ** LETTURA %%* 

210 FOR I=1i TO 10 

220 CLS:PRINT M$:PRINT 

225 PRINT "ARTICOLO N.":I:PRINT 

230 PRINT "DESCRIZIONE ":D$(I):PRINT 
235 PRINT "PREZZO":P(I):PRINT È 
240 INPUT "ALTRA ARTICOLO (S/N)":5$ 
250 IF S$<>"S" AND S$<>"N" THEN 240 
260 IF S$="N" THEN I=11 

270 NEXT I 

280 RETURN 

300 REM *%* MODIFICA *% 

310 CLS;PRINT M$:PRINT 

320 INPUT "ARTICOLO N.":I1:PRINT 

325 IF I<i OR I>10 OR I<>INT(I) THEN 300 
330 INPUT "DESCRIZIONE":D$(I):PRINT 
335 INPUT “PREZZO":P(I):PRINT 

340 INPUT "ALTRA ARTICOLO (5/N)":5$ 
350 IF 5$="S" THEN 310 

360 IF S$<>"N" THEN 340 

370 RETURN 


no 


mmm mon on mm on 


i 


LS 


REM ** RUBRICA VERSIONE 1 %*X 
REM ** VETTORI E SUBROUTINES XX 

CLS 

PRINT "RUBRICA" :PRINT 
PRINT "1 - INSERIMENTO 2 - LETTURA" :PRINT 
PRINT "3 - MODIFICA 4 - FINE" :PRINT 

INPUT "COSA SCEGLI":R$ 

IF R$="1" THEN M$="INSERIMENTO RUBRICA":GOSUB 100 
IF R$="2" THEN M$="LETTURA RUBRICA" :GOSUB 200 
IF R$="3" THEN M$="MODIFICA RUBRICA":GOSUB 300 
IF R$="4" THEN CLS:END 
GOTO 10 

REM *X INSERIMENTO *%* 

FOR I=1i TO 10 

CLS:PRINT M$ :PRINT 

PRINT "REGISTRAZIONE N.":I:PRINT 

INPUT "NOMINATIVO":N$(I1):PRINT 

INPUT "TELEFONO":T(I):PRINT 


PRINT "F = FINE A = ALTRO INSERIMENTO" :PRINT 
INPUT "COSA SCEGLI":5S$ 

IF S$<>"A" AND S$<>"F" THEN 140 

IF S$="F" THEN I=1i1 

NEXT I 

RETURN 

REM ** LETTURA X*%* 


FOR I=1 TO 10 

CLS:PRINT M$ :PRINT 

PRINT. "REGISTRAZIONE N.":I:PRINT 
PRINT “NOMINATIVO ":N$(I):PRINT 
PRINT "TELEFONO":T(I):PRINT 

INPUT "ALTRA REGISTRAZIONE (5/N)":5$ 
IF S$<>"S" AND S$<>"N" THEN 240 

IF S$="N" THEN I=1i 

NEXT I 

RETURN 

REM ** MODIFICA XX 

CLS:PRINT M$ : PRINT 

INPUT "REGISTRAZIONE. ":I:PRINT 

IF I<1 OR I>10 OR I<>INT(I) THEN 300 
INPUT "NOMINATIVO":N$(I):PRINT 

INPUT "TELEFONO":T(I1):PRINT 

INPUT "ALTRA REGISTRAZIONE (S/N)":5$ 
IF S$="S" THEN 310 

IF S$4"N" THEN 340 

RETURN 


28 


ica 


UNITÀ DIDATTICA CINQUE 


Obiettivo 1 e 2 


Svolgete al computer l'esempio di pag 3 e scrivete quale risultato si ottiene facendo esegui- 
re le istruzioni: 


PRINT A$(2) 


Manleok 


PRINT A$ (6) 


FOR X=1 TO 7 STEP 2:PRINT A$(X) : NEXT X 


Sunegi 


apra 


Obiettivo 3 

Fate eseguire la seguente istruzione 
A$(11)=“SETTIMANA” 

quale errore è stato segnalato? 


SIATE A vt of nongs 


date il comando NEW e fate eseguire la seguente istruzione: 
DIM A$(20) 

fate ora eseguire l'istruzione 

A$(11)=“SETTIMANA” 

perchè questa volta non è stato segnalato alcun errore? 


n OVo 0 


fate ora eseguire la seguente istruzione: 
DIM A$(20) 


quale messaggio viene emesso dal computer? 
040 e NA 0a À UNI, 


Er II DIST I E OR 


SS 


Mall 


E- 


— vr 


Spiegate brevemente perchè è stato emesso quel messaggio la seconda volta che è stata 
eseguita l'istruzione DIM sulla stessa variabile. 


Obiettivo 4, 5, 6, 7 
Inserite il programma di pagina 12. 


Modificate il programma aggiungendo le scelte “SOTTRAI” e “DIVIDI”, e le relative subrouti- 
ne. 


Verificate il corretto funzionamento delle modifiche e trascrivete qui sotto. 
Modifiche al main program: 


Subroutine 3 - sottrai 


Subroutine 4 - dividi 


- 


Il MAIN PROGRAM deve svolgere qualche elaborazione? SIO  NoDXt 
Il MAIN PROGRAM deve solo coordinare le subroutines? Sit NoO 
L'istruzione GOSUB altera il normale ordine di esecuzione 

delle linee di un programma? 7 Si NoO 
Nel programma precedentemente modificato (calcoli matematici) 

è necessaria la presenza dell'istruzione END alla linea 120? &ENO SIO  NoO 
Perchè? 

Obiettivo 8 


Digitare il programma scelto (magazzino o rubrica) e, dopo essere certi del corretto funzio- 
namento del programma, salvare il programma su nastro o dischetto. 


Commentare brevemente ogni riga della subroutine di lettura. 
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200 - 
205 - 
210 - 
220 - 
225 - 
230 - 
235 - 
240 - 
250 - 
260 - 
270 - 


Esercitazioni; 
Aggiornare il vocabolario BASIC con le voci apprese in questa unità didattica. 
1 - Per chi ha scelto la gestione di un magazzino: 


PREPARARE LO STUDIO E L'ANALISI DI UN PROGRAMMA PER LA GESTIONE DI UN 
MAGAZZINO 


Il programma dovrà tenere conto di quanto segue: 
— Il numero massimo di articoli del magazzino deve essere 300. 


— Per ogni articolo dovrà essere possibile inserire: 
a) DESCRIZIONE del prodotto 
b) QUANTITÀ esistente 
c) PREZZO unitario 
d) ALIQUOTA IVA % 
e) NOME del fornitore del prodotto 


Ognuna delle caratteristiche di cui sopra dovrà essere inserita in una variabile indicizzata. 


ll programma deve offrire le seguenti possibilità: 

— L'INSERIMENTO di nuovi prodotti, con le loro caratteristiche (Descrizione, Quantità, 
Prezzo, Iva, Fornitore) 

— La LETTURA delle caratteristiche di cui sopra 

— La MODIFICA delle caratteristiche di cui sopra 

— La VALORIZZAZIONE dell'inventario: cioè il totale delle QUANTITÀ per il PREZZO di tutti i 
prodotti esistenti. 


Il programma dovrà essere organizzato in MAIN PROGRAM e relative SUBROUTINES. 
La presentazione sul video delle possibili scelte dovrà essere fatta con un menù. 

Il menù dovrà prevedere, oltre alle scelte di cui sopra, anche la scelta di fine programma. 
Dovranno essere eseguiti tutti i necessari controlli sulla scelta inserita dall'utente. 


Ogni parte di programma dovrà essere presentata sul video con un TITOLO, che identifichi 
la SCELTA dell’utente. 


__piÉ6. sN ei ETNEA e ae 


— vr 


La subroutine per la VALORIZZAZIONE dell’inventario deve operare nel seguengte modo: 


per ogni prodotto esistente in magazzino deve essere calcolato il VALORE: QUANTITÀ per 
PREZZO UNITARIO. 

ll VALORE dei singoli prodotti deve essere sommato per ottenere il VALORE TOTALE del 
magazzino. 

Il risultato finale sarà il seguente: NR. ARTICOLI: ... VALORE TOTALE : ... 


2 - Per chi ha scelto la gestione di una rubrica: 


PREPARARE LO STUDIO E L'ANALISI DI UN PROGRAMMA PER LA GESTIONE DI UNA RU- 
BRICA TEEFONICA. 


Il programma dovrà tenere conto di quanto segue: 
— Il numero massimo di persone registrate deve essere 300 


— Per ogni persona dovrà essere possibile inserire: 
a) Nome 
b) Cognome 
c) Via e numero civico 
d) città 
e) numero di telefono 


Ognuna delle caratteristiche di cui sopra dovrà essere inserita in una variabile indicizzata. 


Il programma deve offrire le seguenti possibilità: 

— L'INSERIMENTO di nuove persone, con le loro caratteristiche (Nome, Cognome, Via e nu- 
mero civico, città, numero di telefono) 

— La LETTURA delle caratteristiche di cui sopra 

— La MODIFICA delle caratteristiche di cui sopra 

— La RICERCA di tutte le persone che soddisfano particolari requisiti, come ad esempio tut- 
te le persone che abitano a Milano. 


ll programma dovrà essere organizzato in MAIN PROGRAM e relative SUBROUTINES. 
La presentazione sul video delle possibili scelte dovrà essere fatta con un menù. 

Il menù dovrà prevedere, oltre alle scelte di cui sopra, anche la scelta di fine programma. 
Dovranno essere eseguiti tutti i necessari controli sulla scelta inserita dall'utente. 


Ogni parte di programma dovrà essere presentata sul video con un TITOLO, che identifichi 
la SCELTA dell'utente. 


La SUBROUTINE per la ricerca di tutte le persone che soddisfino a particolari requisiti deve 
operare nel seguente modo: 

richiedere su quale caratteristica va effettuata la ricerca (se bisogna cercare sui nomi, sui 
cognomi, ecc.); richiedere la caratteristica da cercare (nome uguale a MARIO, oppure città 
uguale a MILANO, ecc.). 


Per tutte le registrazioni controllare se la caratteristica della registrazione è uguale a quella 
cercata; se lo è visualizzare tutte le caratteristiche della registrazione, richiedere se si vuole 
continuare la ricerca con le successive registrazioni. 


Se non si vuole continuare si ritorni al menù principale, altrimenti continui la ricerca. 
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UNITÀ DIDATTICA SEI 


Digitare il programma magazzino o rubrica e, dopo averne verificato il funzionamento, sal- 
varlo su nastro o dischetto. 


Nota: 


II BASIC del computer usato per scrivere il programma disponeva dell'istruzione CLS per la 
cancellazione dello schermo e richiedeva l'istruzione CLEAR per riservare spazio alle varia- 
bili. 

Se ilvostro computer NON dispone dell'istruzione CLS occorrerà sostituire l'istruzione CLS 
che compare nel listato con l’equivalente istruzione per cancellare lo schermo. 


Se il vostro computer NON dispone dell'istruzione CLEAR (da non confondere con l'istru- 
zione CLS) occorrerà ELIMINARE la riga in cui compare l'istruzione CLEAR. 


Il programma allegato è una nuova versione per la gestione di un magazzino o di una rubri- 
ca. 


Intale programma vengono usate le VARIABILI con più INDICI (che vengono anche chiama- 
te TABELLE). i 


Inoltre viene eseguita l'operazione di RIORDINO degli articoli di magazzino con l'apposita 
SUBROUTINE. 


Nel programma compaiono anche le istruzioni READ, DATA e RESTORE. 


Tutti gli argomenti di cui sopra saranno spiegati nei prossimi incontri, per cui si raccoman- 
da di digitare molto attentamente il programma per evitare di commettere errori che non sa- 
reste in grado di riconoscere. 
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1 ESERCITAZIONI: LISTATO PROGRAMMA MAGAZZINO (Prima parte) 


1 REM ** MAGAZZINO xk 
2 REM *X VERSIONE 2 XX 


3 REM %* PER LASER 110, 210 E 310 XX 


5 GOSUB 400:REM INIZIALIZZA 
REM ** MENU E SCELTE + 


PRINT "MAGAZZINO" :PRINT 


INSERIMENTO 


PRINT "3 - MODIFICA 


CLS 
PRINT = 
PRINT "5 - 


TOTALIZZA 


INPUT "COSA SCEGLI":R$ 
THEN M$="INSERIMENTO MAGAZZINO":GOSUB 100 


FOR J=i TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 


INPUT "CAPITO (S/N)"3sS$:IF S$<>"S" AND S$<>"N" THEN 194 


THEN M$="LETTURA MAGAZZINO" :GOSUB 200 


2 - LETTURA" :PRINT 
4 - FINE" :PRINT 
6 - RIORDINO" :PRINT 


THEN M$="MODIFICA MAGAZZINO" :GOSUB 300 


M$="TOTALIZZAZIONE":GOSUB 500 


THEN M$="RIORDINO MAGAZZINO" :GOSUB 6500 


ALTRO INSERIMENTO" :PRINT 


THEN 145 


INT "MAGAZZINO PIENO" :PRINT 
PRINT "PER AGGIUNGERE ARTICOLI":PRINT 


IF I<t OR I>UR-1 OR I<>INT(I) THEN 200 
FOR J=1 TO NC:PRINT N$(J):D$(I1,J):PRINT :NEXT J:PRINT 


THEN 240 


INT "NESSUN ARTICOLO PRESENTE" :PRINT 


AND S$<> "N" 


IF R$="1" 

IF R$="2" 

IF R$="3" 

IF R$="4" THEN CLS:END 

IF R$="5" THEN 

IF R$="6" 
GOTO 10 

REM ** INSERIMENTO X%* 

I=UR 

CLS:PRINT M$ :PRINT 

IF UR>NM THEN 185 

PRINT "ARTICOLO N.":I:PRINT 
NEXT J:PRINT 

PRINT “"F = FINE A = 

INPUT "COSA SCEGLI":S$ 

IF S$<>"“A" AND S$<>"F" 

UR=UR+1 

IF S$="F" THEN RETURN 

GOTO 100 

PRINT :PR 

PRINT "DEVI MODIFICARE NM" :PRINT 
RETURN 

REM ** LETTURA XX 

CLS:PRINT M$ : PRINT 

IF UR=i THEN 280 

INPUT "ARTICOLO N.":I:PRINT 
INPUT "ALTRO ARTICOLO (S/N)":S$ 
IF S$<"S" AND S$<>"N" 

IF S$="N" THEN RETURN 

GOTO 200 

PRINT :PR 

PRINT "(PRIMA DEVI INSERIRE)" :PRINT 
INPUT "CAPITO (S/N)":S$:IF S$<>"S" 
RETURN 


THEN 290 
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2 ESERCITAZIONI: LISTATO MAGAZZINO (Seconda parte) 


300 REM ** MODIFICA *X* 

305 CLS:PRINT M$:PRINT 

310 IF UR=i THEN 280 

320 INPUT "ARTICOLO N.":1:PRINT 

325 IF I<i OR I>UR-1 OR I<>INT(I) THEN 300 

330 FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 
335 NEXT J:PRINT 

340 INPUT "ALTRO ARTICOLO (S/N)":5$ 

350 IF S$="S" THEN 300 

360 IF S$<>"N" THEN 340 

370 RETURN 

400 REM ** INIZIALIZZA VARIABILI XX 

410 NM=100:NC=5:UR=1:;DIM N$(NC),D$ (NM,NC) 

420 RESTORE:FOR I=1i TO NC:READ N$(I):NEXT I 

430 DATA "DESCRIZIONE :" 

431 DATA "QUANTITA’ Ciai 
432 DATA "PREZZO : 
433 DATA "IVA % DE 
434 DATA "FORNITORE H9; 

450 RETURN 

500 REM +%X TOTALIZZA INVENTARIO *%* 

505 CLS:PRINT M$ :PRINT 

510 T=0:FOR I=si TO UR-1 

530 G=VAL(D$(I,2)):P=VAL(D$(1,3)) 

540 T=T+G%*P 

550 NEXT I:PRINT 

560 PRINT "ARTICOLI PRESENTI : ":UR-1:PRINT 

570 PRINT "VALORE TOTALE =":T:PRINT 

580 INPUT "TORNO AL MENU’ (5/N)":S$:;IF S$<>"S" THEN 500 
590 RETURN 

600 REM ** RIORDINO %*X 

605 CLS:PRINT M$:PRINT 

610 IF UR=1 THEN 280 

620 PRINT "ATTENDERE MENTRE RIORDINO" :PRINT 

630 FOR I=i TO UR-2 

635 FOR J=I+1 TO UR-1 

640 IF D$(I,1)>D$(J,1) THEN GOSUB 700 

650 NEXT J,I 

655 PRINT "FINE RIORDINO" :PRINT 

660 FOR TM=1 TO 2000:NEXT TM 

670 RETURN 

700 REM %** INVERSIONI PER RIORDINO ** 

710 FOR K=i TO NC 

720 D$(1,0)=D$(I,K):D$(I,K)=D$(J,K):D$(J,K)=D$(I,0) 

730 NEXT K 

740 RETURN 
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3 ESERCITAZIONI: LISTATO PROGRAMMA RUBRICA (Prima parte) 


1 REM *%* RUBRICA Xx 

2 REM %** VERSIONE 2 XX 

3 REM ** PER LASER 110, 210 E 310 XX 

5 GOSUB 400:REM INIZIALIZZA 

10 REM ** MENU E SCELTE XX 

20 CLS : 

25 PRINT "RUBRICA" :PRINT 

30 PRINT “i - INSERIMENTO 2 - LETTURA" :PRINT 


33 PRINT "3 - MODIFICA 4 - FINE":PRINT 

35 PRINT "5 - RICERCA 6 - RIORDINO":PRINT 

40 INPUT "COSA SCEGLI":R$ To 
50 IF R$="1" THEN M$="INSERIMENTO RUBRICA" :GOSUB 100 

60 IF R$="2" THEN M$="LETTURA RUBRICA":GOSUB 200 

70 IF R$="3" THEN M$="MODIFICA RUBRICA":GOSUB 300 35 


75 IF R$="4" THEN CLS:END 

80 IF R$="5" THEN M$="RICERCA IN RUBRICA":GOSUB 500 

85 IF R$="6" THEN M$="RIORDINO RUBRICA":GOSUB 600 

90 GOTO 10 

100 REM XX INSERIMENTO %*X 

110 I=UR 

115 CLS:PRINT M$:PRINT 

120 IF UR>NM THEN 185 

125 PRINT "REGISTRAZIONE N.":I:PRINT 

130 FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 

135 NEXT J:PRINT 

140 PRINT "F = FINE A = ALTRO INSERIMENTO" :PRINT 

145 INPUT "COSA SCEGLI":5$ 

150 IF S$<>"A" AND S$<>"F" THEN 145 

160 UR=UR+1 x 

170 IF S$="F" THEN RETURN 

180 GOTO 100 

185 PRINT :PRINT "RUBRICA PIENA" :PRINT 

190 PRINT "PER AGGIUNGERE REGISTRAZIONI":PRINT 

192 PRINT "DEVI MODIFICARE NM" :PRINT 

194 INPUT "CAPITO (S/N)":S$:IF S$<>"S" AND S$<>"N" THEN 194 
195 RETURN 

200 REM ** LETTURA 

205 CLS:PRINT M$ :PRINT 

210 IF UR=1 THEN 280 

220 INPUT "REGISTRAZIONE N.":I:PRINT 

225 IF I<1 OR I>UR-1 OR I<>INT(I) THEN 200 

230 FOR J=i TO NC:PRINT N$(J):D$(I,J):PRINT :NEXT J:PRINT 
240 INPUT "ALTRA REGISTRAZIONE (S/N)":S$ 

250 IF S$<>"S" AND S$<>"N" THEN 240 

260 IF S$="N" THEN RETURN 

270 GOTO 200 

280 PRINT :PRINT "NESSUNA REGISTRAZIONE PRESENTE" :PRINT 
285 PRINT "(PRIMA DEVI INSERIRE)" :PRINT 

290 INPUT "CAPITO (S/N)":5$:IF S$<>"S" AND S$<>"N" THEN 290 


295 RETURN 
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4 ESERCITAZIONI: LISTATO PROGRAMMA RUBRICA (Seconda parte) 5 ESERCITAZIONI: LISTATO PROGRAMMA MAGAZZINO (Prima parte) x 


ag 


: 


NN 
a'RRNI 


1 REM ** MAGAZZINO VERSIONE 2 X%% 

2 REM %X PER LASER 500, MSX xt 

3 REM +* GW-BASIC E BASICA ** 

5 GOSUB 400:REM INIZIALIZZA 

10 REM Xt* MENU E SCELTE XX 

CLS 

PRINT "MAGAZZINO" :PRINT 

30 PRINT "i - INSERIMENTO 2 - LETTURA" :PRINT 
33 PRINT "3 - MODIFICA 4 - FINE":PRINT 

35 PRINT "5 - TOTALIZZA 6 - RIORDINO" :PRINT 


300 REM ** MODIFICA *X 

305 CLS:PRINT M$ :PRINT 

310 IF UR=1 THEN 280 

320 INPUT "REGISTRAZIONE N.":I:PRINT 

325 IF I<i OR I>UR-i OR I<>INT(I) THEN 300 

330 FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 
335 NEXT J:PRINT . 

340 INPUT "ALTRA REGISTRAZIONE (5/N)":5$ 

350 IF S$="S" THEN 300 

360 IF S$<>"N" THEN 340 


É 


N) 


Da 


MRMENESÌ 


Faina] 370 RETURN 40 INPUT “COSA SCEGLI":R$ 
400 REM ** INIZIALIZZA VARIABILI %*% PE 50 IF R$="1" THEN M$="INSERIMENTO MAGAZZINO":GOSUB 100 
410 NM=100;NC=5:UR=1:DIM N$(NC),D$(NM,NC) Ti 50 IF R$="2" THEN M$="LETTURA MAGAZZINO":GOSUB 200 
36 420 RESTORE:FOR I=1 TONO READINV URI UNERTOI Fa 70 IF R$="3" THEN M$="MODIFICA MAGAZZINO":GOSUB 300 
430 DATA "NOME : £ 75 IF R$="4" THEN CLS:END 
431 DATA "COGNOME ho bB-3a 80 IF R$="S" THEN M$="TOTALIZZAZIONE":GOSUB 500 
432 DATA "VIA E N.RO :" 8S IF R$="6" THEN M$="RIORDINO MAGAZZINO" :GOSUB 600 
433 DATA "CITTA' cu E 90 GOTO 10 
434 DATA "TELEFONO i" 100 REM ** INSERIMENTO X*£ 
450 RETURN E 110 I=UR 


115 CLS:PRINT M$:PRINT 

120 IF UR>NM THEN 185 

125 PRINT "ARTICOLO N.":I1:PRINT 

130 FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 

135 NEXT J:PRINT 

140 PRINT "F = FINE A = ALTRO INSERIMENTO" :PRINT 

145 INPUT "COSA SCEGLI":5$ 

150 IF S$<>"A" AND S$<>"F" THEN 145 

160 UR=UR+1 

170 IF S$="F" THEN RETURN 

180 GOTO 100 

185 PRINT :PRINT “MAGAZZINO PIENO" :PRINT 

190 PRINT "PER AGGIUNGERE ARTICOLI" :PRINT 

192 PRINT "DEVI MODIFICARE NM":PRINT 

194 INPUT "CAPITO (S/N)":S$:IF S$<>"S" AND S$<>"N" THEN 194 
195 RETURN 

200 REM ** LETTURA XX 

205 CLS:PRINT M$:PRINT 

210 IF UR=1 THEN 280 

220 INPUT "ARTICOLO N.":I:PRINT 

225 IF I<1 OR I>UR-1 OR I<>INT(I) THEN 200 

230 FOR J=i TO NC:PRINT N$(J):D$(I,J):PRINT :NEXT J:PRINT 
240 INPUT "ALTRO ARTICOLO (S/N)":5$ 

250 IF S$<>"S" AND S$<>"N" THEN 240 

260 IF S$="N" THEN RETURN 

270 GOTO 200 

280 PRINT :PRINT “NESSUN ARTICOLO PRESENTE" :PRINT 

285 PRINT "(PRIMA DEVI INSERIRE)" :PRINT 

290 INPUT "CAPITO (5/N)":S$:IF S$<>"S" AND S$<>"N" THEN 290 


295 RETURN 


500 REM XX RICERCA XX 

505 CLS:PRINT M$:" PER":PRINT 

510 FOR Isi TO NC 

515 PRINT N$(I):1:PRINT 

520 NEXT I 

525 INPUT “QUALE RICERCA SCEGLI":R$ :PRINT 
530 R=VAL(R$):IF R<1 OR R>NC OR R<>INT(R) THEN 500 
\535 INPUT "RICERCO ":RC$:CLS 

540 FOR I=i TO UR-1 

545 ÎF D$(I,R)<>RC$ THEN 575 

550 FOR J=1 TO NC:PRINT N$(J):D$(I,J):PRINT :NEXT J 
555 INPUT "CONTINUO LA RICERCA (S/N)":5$ 

560 IF S$<>"S" AND S$<>"N" THEN CLS:GOTO 550 
565 IF S$="N" THEN I=UR 

570 CLS 

575 NEXT I 

580 PRINT "FINE RICERCA" 

585 FOR TM=1i TO 2000:NEXT TM 

590 RETURN 

600 REM X* RIORDINO X*% 

605 CLS:PRINT M$:FRINT 

610 IF UR=i THEN 280 

620. PRINT "ATTENDERE MENTRE RIORDINO" :PRINT 
630 FOR I=si TO UR-2 

635 FOR J=I+1 TO UR-1 

640 IF D$(I,1)>D$(J,1) THEN GOSUB 700 

650 NEXT J,I 

655 PRINT “FINE RIORDINO" :PRINT 

660 FOR TM=1i TO 2000:NEXT TM 

670 RETURN 

700 REM ** INVERSIONI PER RIORDINO *% 

710 FOR K=1i TO NC 

720 D$(I,0)=D$(I,K):D$(I,K)=D$(J,K):D$(J,K)=D$(I,0) 
730 NEXT K 

740 RETURN 
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6 ESERCITAZIONI: LISTATO PROGRAMMA MAGAZZINO (Seconda parte) Y 


300 REM *X MODIFICA XX 

305 CLS:PRINT M$:PRINT 

310 IF UR=i THEN 280 

320 INPUT "ARTICOLO N.":1:PRINT 

325 IF I<i OR I>UR-1 OR I<>INT(I) THEN 300 
330 FOR J=i TO NC:PRINT N$(J)::INPUT D$(1,J):PRINT 
335 NEXT J:PRINT 

340 INPUT "ALTRO ARTICOLO (5S/N)":5$ 

350 IF S$="S" THEN 300 

360 IF S$<>"N" THEN 340 

370 RETURN 

400 REM *+%* INIZIALIZZA VARIABILI XX 

410 NM=100:NC=5:UR=1:DIM N$(NC).,D$(NM,NC) 
420 RESTORE:FOR I=1 TO NC:READ N$(I):NEXT I 
430 DATA "DESCRIZIONE :" 

431 DATA "QUANTITA‘ u 

432 DATA "PREZZO Ba 

433 DATA "IVA % Ha 

434 DATA “FORNITORE Hh 

450 RETURN 

500 REM *+* TOTALIZZA INVENTARIO XX 

505 CLS:PRINT M$:PRINT 

510 T=0:FOR I=i TO UR-1 

530 Q=VAL(D$(I,2)):P=VAL(D$(I1,3)) 

540 T=T+Q%P 

550 NEXT I:PRINT 

560 PRINT "ARTICOLI PRESENTI : ":UR-1:PRINT 
570 PRINT "VALORE TOTALE =":T:PRINT 

580 INPUT “TORNO AL MENU’ (5/N)":S$:;IF S$<>"S" THEN 500 
590 RETURN 

600 REM X* RIORDINO XX 

605 CLS:PRINT M$:PRINT 

610 IF UR=1 THEN 280 

620 PRINT "ATTENDERE MENTRE RIORDINO" :PRINT 
630 FOR I=i TO UR-2 

635 FOR J=I+1 TO UR-1 

640 IF D$(I,1)>D$(J,1) THEN GOSUB 700 

650 NEXT J,I 

655 PRINT “FINE RIORDINO" :PRINT 

660 FOR TM=1 TO 2000:NEXT TM 

670 RETURN 

700 REM ** INVERSIONI FER RIORDINO %*% 

710 FOR K=i TO NC 

720 SWAP D$(I,K),D$(J,K) 

730 NEXT K 

740 RETURN 


aa 
7 ESERCITAZIONI: LISTATO PROGRAMMA RUBRICA (Prima parte) Pd 


1 REM ** RUBRICA VERSIONE 2 XX 
2 REM ** PER LASER 500, MSX XX 
3 REM ** GW-BASIC E BASICA +*X 
5 GOSUB 400:REM INIZIALIZZA 
10 REM ** MENU E SCELTE XX 


25 PRINT “RUBRICA":PRINT 

30 PRINT "1 - INSERIMENTO 2 - LETTURA" :PRINT 

33 PRINT "3 - MODIFICA 4 -— FINE":PRINT 

35 PRINT "5 - RICERCA 6 - RIORDINO" :PRINT 

40 INPUT "COSA SCEGLI":R$ 

50 IF R$="1" THEN M$="INSERIMENTO RUBRICA":GOSUB 100 
60 IF R$="2" THEN M$="LETTURA RUBRICA" :GOSUB 200 

70 IF R$="3" THEN M$="MODIFICA RUBRICA":GOSUB 300 

75 IF R$="4" THEN CLS:END 

80 IF R$="5" THEN M$="RICERCA IN RUBRICA":GOSUB 500 
85 IF R$="6" THEN M$="RIORDINO RUBRICA":GOSUB 600 

90 GOTO 10 

100 REM ** INSERIMENTO XX 

110 I=UR 

115 CLS:PRINT M$:PRINT 

120 IF UR>NM THEN 185 

125 PRINT "REGISTRAZIONE N.":I:PRINT 

130 FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 
135 NEXT J:PRINT 

140 PRINT "F = FINE A = ALTRO INSERIMENTO" :PRINT 
145 INPUT "COSA SCEGLI":S$ 

150 IF S$<>"A" AND S$<>"F" THEN 145 

160 UR=UR+1 

170 IF S$="F" THEN RETURN 

180 GOTO 100 

185 PRINT :PRINT “RUBRICA PIENA" :PRINT 

190 PRINT "PER AGGIUNGERE REGISTRAZIONI ":PRINT 

192 PRINT "DEVI MODIFICARE NM":PRINT 

194 INPUT "CAPITO (S/N)":S$:IF S$<>"S" AND S$<>"N" THEN 194 
195 RETURN 

200 REM XX LETTURA *X 

205 CLS:PRINT M$ :PRINT 

210 IF UR=1 THEN 280 

220 INPUT "REGISTRAZIONE N.":I:PRINT 

225 IF I<1 OR I>UR-1 OR I<YINT(I) THEN 200 

230 FOR J=1 TO NC:PRINT N$(J):D$(I,J):PRINT :NEXT J:PRINT 
240 INPUT “ALTRA REGISTRAZIONE (S/N)":S$ 

250 IF S$<>"S" AND S$<>"N" THEN 240 

260 IF S$="N" THEN RETURN 

270 GOTO 200 

280 PRINT :PRINT "NESSUNA REGISTRAZIONE PRESENTE" :PRINT 
285 PRINT "(PRIMA DEVI INSERIRE)" :PRINT 

290 INPUT “CAPITO (S/N)":S$:IF S$<>"S" AND S$<>"N" THEN 290 
295 RETURN 


40 


8 ESERCITAZIONI: LISTATO PROGRAMMA RUBRICA (Seconda parte) 


300 REM *% MODIFICA XX 

305 CLS:PRINT M$ :PRINT 

310 IF UR=1 THEN 280 

320 INPUT "REGISTRAZIONE N.":I:PRINT 

325 IF I<1 OR I>UR-1 OR I<>INT(I) THEN 300 
330 FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 
335 NEXT J:PRINT 

340 INPUT "ALTRA REGISTRAZIONE (S/N)":5$ 
350 IF S$="S" THEN 300 

360 IF S$<>"N" THEN 340 

370 RETURN 

400 REM ** INIZIALIZZA VARIABILI XX 

410 NM=100:NC=5:UR=1:DIM N$ (NC),D$(NM,NC) 
420 RESTORE:FOR I=1i TO NC:READ N$(I):NEXT I 
430 DATA "NOME se 

431 DATA "COGNOME HS: 

432 DATA "VIA E N.RO :" 

433 DATA "CITTA’ Ha 

434 DATA "TELEFONO : 

450 RETURN 

500 REM X* RICERCA XX 

505 CLS:PRINT M$;" PER":PRINT 

510 FOR I=i TO NC 

515 PRINT N$(I):I:PRINT 

520 NEXT I ; 
525 INPUT "QUALE RICERCA SCEGLI":R$ : PRINT 
530 R=VAL(R$):IF R<i OR R>NC OR R<>INT(R) THEN 500 
535 INPUT "RICERCO ":RC$:CLS 

540 FOR I=i TO UR-1 

545 IF D$(I,R)<>RC$ THEN 575 

550 FOR J=1 TO NC:PRINT N$(J):D$(I,J):PRINT :NEXT J 
555 INPUT "CONTINUO LA RICERCA (5/N)":5S$ 
560 IF S$<>"S" AND S$<>"N" THEN CLS:GOTO 550 
565 IF S$="N" THEN I=UR 

570 CLS 

575 NEXT I 

580 PRINT "FINE RICERCA" 

585 FOR TM=1i TO 2000:NEXT TM 

590 RETURN 

600 REM ** RIORDINO ** 

605 CLS:PRINT M$ :PRINT 

610 IF UR=i THEN 280 

620 PRINT "ATTENDERE MENTRE RIORDINO":PRINT 
630 FOR I=si TO UR-2 

635 FOR J=I+1 TO UR-1 

640 IF D$(1,1)>D$(J,1) THEN GOSUB 700 

650 NEXT J,I 

655 PRINT "FINE RIORDINO" :PRINT 

660 FOR TM=1 TO 2000:NEXT TM 

670. RETURN 

700 REM ** INVERSIONI PER RIORDINO XX 

710 FOR K=1 TO NC 

720 SWAP D$(I1,K),D$(J,K) 

730 NEXT K 

740 RETURN 


X UNITÀ DIDATTICA SETTE 


Obiettivo 1 
Scrivere almeno due delle tecniche di programmazione apprese 


1-DUMPING 
2 DERU GGING 


3- 


Obiettivo 2 
Inserire il programma esempio dell’obiettivo 2 pag. 4 
Dare RUN e controllare gli effetti dell'esecuzione del programma. 


Qual'è il significato di ” ”’ a linea 20? 


Inserire il seguente programma: 
10 CLS x 
20 PRINT “o0/” 
30 PRINT “ M” 
40 PRINT “/ ,, 
50 A$=INKEY$: IF A$ =” ” THEN 50 
60 CLS 
70 PRINT “ o” 
80 PRINT “/M” 
90 PRINT “/” 
100 A$=INKEY$: IF A$ = “ “ THEN 100 
110 GOTO 10 


Dare RUN, premere poi dei tasti in successione più o meno rapida. 
Descrivete brevemente cosa fa il programma. 


Se la linea 50 e la linea 100 vengono sostituite dalle seguenti, quali variazioni si hanno 
nell'esecuzione del programma? 

50 INPUT A$:1F A$ =" ” THEN 50 
ST A$:1F A$ =" " THEN 100 


41 
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biettivo 3 e 4 
Inserire il programma 


10 READ A$,B 

20 PRINT A$;B 
100 DATA PRIMA LINEA DATA, 1 
110 DATA SECONDA LINEA DATA, 2 
date RUN. 


Trascrivere esattamente ciò che il programma ha scritto sul video. 


PRIMA? ?INVE9 DETRL 


dare nuovamente RUN 5 
Trascrivere esattamente ciò che il programma ha scritto sul video. 


PRIMA 2 NE4 DATA 1 
dare il comando GOTO 10 
Trascrivere esattamente ciò che il programma ha scritto sul video. 


sE CONPO 2/NZ 0 DeTE > 


dare nuovamente GOTO 10 
Trascrivere esattamente ciò che il programma ha scritto sul video. 


UD INTO 


Perchè è stato emesso quel messaggio d'errore? 


inserire ora la seguente linea di programma 


40 GOTO 10 
dare RUN 


Trascrivere esattamente ciò che il programma o scritto sul video. 

PRIMA LINZA  DEre 4 

SECONDA ZINE Dati L 
DUT: oF DETA \N 40 


Perchè il programma finisce con un messaggio d'errore? 


inserire ora la seguente linea di programma 


30 RESTORE 
dare RUN i 
Qi il TORTE non termina più, ma continua a leggere ed a stampare sempre alcuni dati 
uali si 
Ù 2 Î - pi 
59 


vi 


Come si può modificare il programma per fare sì che vengano effettuate solo le letture ne- 
cessarie per leggere tutti i dati e non una di più? 

Provate le modifiche e quando il programma funziona regolarmente, trascrivetele nel se- 
guente spazio ; 


Obiettivo 5 
Analizzate il seguente programma: 


10 DIM TP(10,10) 
20 FOR X=1 TO 10 
80 FOR Y=1 TO 10 
40 TP (X,Y)=XxY 
50 NEXT Y,X 


commentate brevemente ogni riga del programma 
10 - 
20 - 
30 - 
40 - 
50 - 


. 


Dopo l'esecuzione del programma quale sarà il contenuto della tabella TP? 


ie ener —__r_rre=wree=e e e e Ye 


Obiettivo 6 


Problemi di ordinamento 
Ordinate in ordine crescente la seguente tabella di stringhe 


“9346648” 

“7870645” 

“ 986793” 

“5599” 

“ 33243" SEME II 
“9999” SIA E E 


PAGINA 


= 
Ordinate in ordine alfabetico le seguenti stringhe, riscrivendo anche il numero indicante la 


vecchia posizione. 
1 MICANO 1 ANCONA 


2-zUPi@onit: A CO 
STROMA 1 MICONO —  — 


4 ANCONA. 3 RoMa 
5 UDINE Ro TAYNIN 
6 COMO TRAVI oi 


Esercizi unità didattica sette 


COMPLETARE l'ELENCO del VOCABOLARIO BASIC, aggiungendo le VOCI apprese in que- 
sta lezione. 


COMPLETARE IL PROGRAMMA MAGAZZINO LEZIONE 7 O IL PROGRAMMA RUBRICA LE- 
ZIONE 7 in modo da renderlo IDENTICO al LISTATO allegato, ricordando quanto segue: 
l'istruzione CLS (che compare nel listato), serve per cancellare lo schermo, mentre l’istru- 
zione CLEAR ha la funzione di riservare posto alle variabili. 


Se il BASIC del computer usato NON ha tali istruzioni, sarà necessario apportare le seguen- 
ti modifiche al programma: 


a) - sostituire l'istruzione CLS con l'istruzione equivalente 
b) - eliminare l'istruzione CLEAR 


SALVARE il programma su nastro o dischetto 


NOTE: 


| listati comprendono le SUBROUTINE per la LETTURA e la SCRITTURA su nastro o su di- 
schetto dei dati (SUBROUTINE 800 e 900). 


Vengono proposti due listati per il programma GESTIONE MAGAZZINO per il programma 
GESTIONE RUBRICA. 


Le due versioni differiscono in quanto alcuni computer utilizzano le istruzioni OPEN e CLO- 
SE, mentre altri ne fanno a meno. 


Consultate il manuale del vostro computer e scegliete il listato adatto oppure, se il vostro 


computer richiede una particolare sintassi nelle istruzioni OPEN, PRINT# INPURE CLOSE, 
modificate le SUBROUTINE 800 e 900. 


— ri 


LISTATO PROGRAMMA MAGAZZINO PER LASER (Prima parte) 


1 REM XX 
2 REM ** PER LASER CON DATI SU NASTRO XX 
5 GOSUB 400:REM INIZIALIZZA 
REM *X* MENU E SCELTE %+% 


INPUT 
IF R$= 
IF R$= 
IF R$= 
IF R$= 
IF R$= 


IF R$="6" THEN M$="RIORDINO MAGAZZINO" 
M$="LETTURA NASTRO":GOSUB 800 


IF R$= 


MAGAZZINO VERSIONE 3 


"MAGAZZINO" 
"1 - INSERI 
"93 - MODIFI 
“5 - TOTALI 
"7 - LETT. 


:PRINT 

MENTO 2501 
CA 4 - 
ZZA Ga 
NASTRO 8 - 


"COSA SCEGLI":R$ 
"1" THEN M$="INSERIMENTO MAGAZZINO" :GOSUB 100 
“2 THEN M$="LETTURA MAGAZZINO" :GOSUB 200 
"3" THEN M$="MODIFICA MAGAZZINO" :GOSUB 300 


"4" THEN CL 


S: END 


*k 


LETTURA": PRINT 
FINE" :PRINT 
RIORDINO" :PRINT 
SCR. NASTRO" :PRINT 


"5" THEN M$="TOTALIZZAZIONE":GOSUB 500 


47" THEN 


IF R$="8" THEN M$="SCRITTURA NASTRO" :GOSUB 900 
90 GOTO 10 
REM **% INSERIMENTO *X 


I=UR 


CLS:PRINT M$ 


:PRINT 


IF UR>NM THEN 185 
"ARTICOLO N.":I:PRINT 


PRINT 


FOR J=1 TO NC:PRINT N$(J): 


NEXT J:PRINT 


PRINT 
INPUT 


IF S$="F" 


“F = FINE 


A = 


"COSA SCEGLI":5$ 
IF S$<>"A" AND S 
UR=UR+1 


GOTO 100 


PRINT 
PRINT 
PRINT 
INPUT 


PRINT "MAGAZZINO PIENO" 


$<>"F" 


THEN RETURN 


: INPUT D$(I,J):PRINT 


ALTRO INSERIMENTO": PRINT 


THEN 


145 


"PER AGGIUNGERE ARTICOLI ":PRI 


“DEVI MODIFICARE NM" 


: PRINT 


“CAPITO (S/N)":S$:IF S$<>)"S" 


RETURN 

REM ** LETTURA XX 
CLS:PRINT M$:PRINT 
IF UR=i THEN 280 


INPUT 


"ARTICOLO N." 


3I:PRINT 


PRINT 


NT 


AND S$<> "N" 


IF I<1 OR I>UR-1 OR I<>INT(I) THEN 200 
FOR J=i TO NC:PRINT N$(J):D$(I,J):PRINT :NEXT J:PRINT 
“ALTRO ARTICOLO (S/N)":S$ 


INPUT 
IF S$ 


IF S$="N" 


<>"S"“ AND S 


GOTO 200 
PRINT “NESSUN ARTICOLO PRESENTE" :PRINT 
“(PRIMA DEVI INSERIRE) ":PRINT 
INPUT "CAPITO (S5/N)":S$:IF S$<>"S" AND S$<>"N" THEN 290 
RETURN 


PRINT 
PRINT 


$<> "N" 


THEN RETURN 


n 


THEN 


240 


:GOSUB 600 


THEN 


194 


PAGINA 
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LISTATO PROGRAMMA MAGAZZINO PER LASER (Seconda parte) 


300 
305 
310 
320 


REM ** MODIFICA *X 

CLS:PRINT M$:PRINT 

IF UR=1 THEN 280 

INPUT "ARTICOLO N.":I:PRINT 

IF I<i OR I>UR-1 OR I<>INT(I) THEN 300 
FOR J=1i TO NC:PRINT N$(J);:INPUT D$(I,J):PRINT 
NEXT J:PRINT 

INPUT "ALTRO ARTICOLO (5/N)":5$ 

IF S$="S" THEN 300 

IF S$<>"N" THEN 340 

RETURN 

REM ** INIZIALIZZA VARIABILI *X 
NM=100:NC=5:UR=1:DIM N$ (NC) ,D$(NM,NC) 
RESTORE:FOR I=1i TO NC:READ N$(I):NEXT I 
DATA "DESCRIZIONE :" 

DATA "QUANTITA‘ un 

DATA "PREZZO % 


DATA "IVA % i" 
DATA "FORNITORE u 
RETURN 


REM *%* TOTALIZZA INVENTARIO %*% 
CLS:PRINT M$:PRINT 

T=0:FOR I=i TO UR-1 
G=VAL(D$(I,2)):P=VAL(D$(I1,3)) 

T=T+GQ%P 

NEXT I:PRINT 

PRINT "ARTICOLI PRESENTI : ":UR-1:PRINT 
PRINT "VALORE TOTALE =":T:PRINT 

INPUT "TORNO AL MENU’ (5/N)":S$:IF S$<>"S" THEN :500 
RETURN 

REM ** RIORDINO *X 

CLS:PRINT M$ :PRINT 

IF UR=1 THEN 280 

PRINT "ATTENDERE MENTRE RIORDINO" :PRINT 
FOR I=i TO UR-2 

FOR J=I+1 TO UR-1 

IF D$(I,1)>D$(J,1) THEN GOSUB 700 

NEXT J,I 

PRINT "FINE RIORDINO" :PRINT 

FOR TM=1 TO 2000:NEXT TM 

RETURN 

REM ** INVERSIONI PER RIORDINO ** 

FOR K=i TO NC 
D$(I1,0)=D$(I,K):D$(I,K)=D$(J,K):D$(J,K)=D$(1,0) 
NEXT K 

RETURN 


LISTATO PROGRAMMA MAGAZZINO PER LASER (Terza parte) 


800 REM ** LEGGE NASTRO X%* 

805 CLS:PRINT M$ :PRINT 

810 PRINT “INSERIRE IL NASTRO DATI" 
815 PRINT "E POSIZIONARE IL NASTRO" 
820 INPUT "FATTO (S/N)":5$ 

825 IF S$<>"S" THEN RETURN 

830 CLS:PRINT M$:PRINT :PRINT "PREMERE TASTO PLAY" 
835 INPUT# "MAGAZZINO" ,UR 

840 FOR I=i TO UR-1 

850 FOR J=1 TO NC 

860 INPUT#"MAGAZZINO",D$(1,J) 

870 NEXT J,I 

880 CLS:PRINT "PREMI TASTO STOP" 
881 PRINT "SUL REGISTRATORE" 

885 INPUT"“FATTO (S/N)":S$ 

890 IF S$<>"S" THEN 880 

895 RETURN 

900 REM X*X SCRIVE NASTRO %*X 

905 CLS:PRINT M$:PRINT 

910 IF UR=1 THEN 280 

915 PRINT "INSERIRE NASTRO DATI" 
916 PRINT "E POSIZIONARE NASTRO" 
920 INPUT "FATTO (S/N)":5$ 

925 IF S$<>"S" THEN RETURN 

926 CLS:PRINT M$ :PRINT 

930 PRINT "PREMERE TASTI REC & PLAY" 
931 PRINT "SUL REGISTRATORE" 

932 INPUT "FATTO (S/N)":5$ 

933 IF S$<>"S" THEN 926 

9935 PRINT#"MAGAZZINO" UR 

940 FOR I=1 TO UR.I1 

950 FOR J=i TO NC 

960 PRINT#"MAGAZZINO",D$(I,JI) 

970 NEXT J,I 

980 CLS:PRINT “PREMI TASTO STOP" 
981 PRINT "SUL REGISTRATORE" 

985 INPUT"FATTO (S/N)":5S$ 

990 IF S$<>"S" THEN 980 

995 RETURN 


PAGINA 


esi” 


LISTATO PROGRAMMA RUBRICA PER LASER (Prima parte) 


1 R 
2 R 
5 G 


EM *X RUBRICA VERSIONE 3 XK 
EM ** PER LASER CON DATI SU NASTRO XX 
OSUB 400:REM INIZIALIZZA 

REM ** MENU E SCELTE XX 


PRINT "RUBRICA" :PRINT 
PRINT "1 - INSERIMENTO 
PRINT "3 — MODIFICA 
PRINT "5 - TOTALIZZA 
PRINT "7 - LETT. NASTRO 
INPUT "COSA SCEGLI":R$ 
IF R$="1" THEN M$="INSERIMENTO RUBRICA":GOSUB 100 
IF R$="2" THEN M$="LETTURA RUBRICA":GOSUB 200 

IF R$="3" THEN M$="MODIFICA RUBRICA":GOSUB 300 

IF R$="4" THEN CLS:END 

IF R$="5" THEN M$="RICERCA":GOSUB 500 

IF R$="é6" THEN M$="RIORDINO RUBRICA":GOSUB 600 

IF R$="7" THEN M$="LETTURA NASTRO":GOSUB 800 

IF R$="8" THEN M$="SCRITTURA NASTRO":GOSUB 900 


= LETTURA":PRINT 

- FINE" :PRINT 

- RIORDINO" :PRINT 

- SCR. NASTRO":PRINT 


DOEsahN 


GOTO 10 

REM ** INSERIMENTO *X 

I=UR 

CLS:PRINT M$:PRINT 

IF UR>NM THEN 185 

PRINT “REGISTRAZIONE N.":I:PRINT 

FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 
NEXT J:PRINT 

PRINT "F = FINE A = ALTRO INSERIMENTO" :PRINT 
INPUT "COSA SCEGLI":5$ 

IF S$<>"A" AND S$<>"F" THEN 145 

UR=UR+1 

IF S$="F" THEN RETURN 

GOTO 100 

PRINT :PRINT “RUBRICA PIENA" :PRINT 

PRINT "PER AGGIUNGERE REGISTRAZIONI" :PRINT 

PRINT “DEVI MODIFICARE NM":PRINT 

INPUT "CAPITO (S/N)":S$;IF S$<>"S" AND S$<>"N" THEN 194 
RETURN 

REM *%* LETTURA XX 

CLS:PRINT M$:PRINT 

IF UR=1 THEN 280 

INPUT "REGISTRAZIONE N.":I:PRINT 

IF I<1 OR I>UR-1 OR I<>INT(I) THEN 200 

FOR J=i TO NC:PRINT N$(J):D$(I,J):PRINT :NEXT J:PRINT 
INPUT "ALTRA REGISTRAZIONE (S/N)":5$ 

IF S$<>"S" AND S$<>"N" THEN 240 

IF S$="N" THEN RETURN 

GOTO 200 

PRINT:PRINT "NESSUNA REGISTRAZIONE PRESENTE" :PRINT 
PRINT "(PRIMA DEVI INSERIRE) ":PRINT 

INPUT "CAPITO (S/N)":S$:;IF S$<>"S" AND S$<>"N" THEN 290 
RETURN 


140 


mom 


mom 
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LISTATO PROGRAMMA RUBRICA PER LASER (Seconda parte) 


REM ** MODIFICA *X 

CLS:PRINT M$:PRINT 

IF UR=1i THEN 280 

INPUT “REGISTRAZIONE N.":I1:PRINT 

IF I<i OR I>UR-1 OR I<>INT(I) THEN 300 

FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 
NEXT J:PRINT 

INPUT "ALTRA REGISTRAZIONE (S/N)":5$ 

IF S$="S" THEN 300 

IF S$<>"N" THEN 340 

RETURN : 

REM ** INIZIALIZZA VARIABILI *% 
NM=100:NC=5:UR=1:DIM N$(NC),D$(NM,NC) 
RESTORE:FOR I=1 TO NC:READ N$(I):NEXT I 

DATA "NOME ge 
DATA "COGNOME Ha; 
DATA "VIA E N.RO :" 
DATA "CITTA Ha 
DATA "TELEFONO : 
RETURN 

REM ** RICERCA XX 
CLS:PRINT M$:" PER":PRINT 

FOR I=1i TO NC 

PRINT N$(I):I:PRINT 

NEXT I 

INPUT "QUALE RICERCA SCEGLI":R$: PRINT 
R=VAL(R$):IF R<i OR R>NC OR R<>INT(R) THEN 500 
INPUT “RICERCO ":RC$:CLS 

FOR I=1 TO UR.-1 

IF D$(I,R)<>RC$ THEN 575 

FOR J=1 TO NC:PRINT N$(J):D$(I,J):PRINT :NEXT J 
INPUT "CONTINUO LA RICERCA (S/N)":5$ 

IF S$<>"S" AND S$<>"N" THEN CLS:GOTO 550 

IF S$="N" THEN I=UR 


PRINT "FINE RICERCA" 

FOR TM=1 TO 2000:NEXT TM 

RETURN 

REM ** RIORDINO *X* 

CLS:PRINT M$ :PRINT 

IF UR=1 THEN 280 

PRINT “ATTENDERE MENTRE RIORDINO":PRINT 
FOR I=i TO UR-2 

FOR J=I+1 TO UR-1 

IF D$(1,1)>D$(J,1) THEN GOSUB 700 

NEXT J,I 

PRINT “FINE RIORDINO" :PRINT 

FOR TM=1 TO 2000:NEXT TM 

RETURN x 

REM *X INVERSIONI PER RIORDINO *X% 

FOR K=1 TO NC 
D$(1,0)=D$(I,K):D$(I,K)}=D$(J,K):D$(J,K)=D$(I,0) 
NEXT K 

RETURN 


a arl 
LISTATO PROGRAMMA RUBRICA PER LASER (Terza parte) 


800 REM XX LEGGE NASTRO X% 

805 CLS:PRINT M$:PRINT 

810 PRINT "INSERIRE IL NASTRO DATI" 
PRINT "E POSIZIONARE IL NASTRO" 
INPUT "FATTO (S/N)":S$ 

IF S$<>"S" THEN RETURN 
CLS:PRINT M$:PRINT :PRINT "PREMERE TASTO PLAY" 
INPUT#"RUBRICA",UR 

FOR I=1 TO UR-1 

FOR J=1 TO NC 
INFUT#"RUBRICA",D$(I1,J) 

NEXT J,I 

CLS:PRINT "PREMI TASTO STOP" 
PRINT "SUL REGISTRATORE" 
INPUT"FATTO (5/N)":5$ 

IF S$<>"S" THEN 880 

895 RETURN 

900 REM ** SCRIVE NASTRO XX 

905 CLS:PRINT M$:PRINT 

910 IF UR=1 THEN 280 

915 PRINT "INSERIRE NASTRO DATI" 
916 PRINT "E POSIZIONARE NASTRO" 
920 INPUT "FATTO (S/N)":5$ 

925 ‘IF S$<>"S" THEN RETURN 

926 CLS:PRINT M$:PRINT 

930 PRINT "PREMERE TASTI REC & PLAY" 
931 PRINT "SUL REGISTRATORE" 

932 INPUT "FATTO (S/N)":5$ 

933 IF S$<>"S" THEN 926 

935 PRINT#"RUBRICA",UR 

940 FOR I=si TO UR-1 

950 FOR J=1 TO NC 

960 PRINT#"RUBRICA",D$(I,J) 

970 NEXT J,I 

980 CLS:PRINT “PREMI TASTO STOP" 
981 PRINT "SUL REGISTRATORE" 

985 INPUT"FATTO (5/N)":5$ 

990 IF S$<>"S" THEN 980 

995 RETURN 


— ga 
LISTATO PROGRAMMA MAGAZZINO PER GWBASIC E MSX (Prima parte) 


i REM ** MAGAZZINO VERSIONE 3 PER GWBASIC - BASICA - MSX XX 
2 REM *X DATI SU DISCO *x* 
5 GOSUB 400:REM INIZIALIZZA 

10 REM *X MENU E SCELTE XX 

20 CLS 

25 PRINT "MAGAZZINO" :PRINT 


30 PRINT "1 - INSERIMENTO 2 —- LETTURA" :PRINT 

33 PRINT "3 - MODIFICA 4 - FINE" :PRINT 

35 PRINT "5 - TOTALIZZA 6 - RIORDINO" :PRINT 

36 PRINT "7 - LETT. DISCO 8 - SCR. DISCO":PRINT 

40 INPUT "COSA SCEGLI":R$ FIA 
50 IF R$="1" THEN M$="INSERIMENTO MAGAZZINO":GOSUB 100 

60 IF R$="2" THEN M$="LETTURA MAGAZZINO":GOSUB 200 

70 IF R$="3" THEN M$="MODIFICA MAGAZZINO":GOSUB 300 51 


75 IF R$="4" THEN CLS:END 

80 IF R$="5" THEN M$="TOTALIZZAZIONE":GOSUB 500 

85 IF R$="6" THEN M$="RIORDINO MAGAZZINO" :GOSUB 600 
86 IF R$="7" THEN M$="LETTURA DISCO":GOSUB 800 

87 IF R$="8" THEN M$="SCRITTURA DISCO" :GOSUB 900 
90 GOTO 10 

100 REM ** INSERIMENTO *X* 

110 I=UR 

115 CLS:PRINT M$ :PRINT 

120 IF UR>NM THEN 185 

125 PRINT "ARTICOLO N.":I:PRINT 

130 FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 
1395 NEXT J:PRINT 

140 PRINT "F = FINE A = ALTRO INSERIMENTO" :PRINT 
145 INPUT "COSA SCEGLI":5S$ 

150 IF S$<>"A" AND S$<>"F" THEN 145 


| 160 UR=UR+1 


170 IF S$="F" THEN RETURN 

180 GOTO 100 

185 PRINT :PRINT "MAGAZZINO PIENO" :PRINT 

190 PRINT "PER AGGIUNGERE ARTICOLI":PRINT 

192 PRINT "DEVI MODIFICARE NM":PRINT 

194 INPUT "CAPITO (S/N)":S$:IF S$<>"S" AND S$<>"N" THEN 194 
195 RETURN 

200 REM ** LETTURA *% 

205 CLS:PRINT M$ :PRINT 

210 IF UR=i THEN 280 

220 INPUT "ARTICOLO N.":I:PRINT 

225 IF I<1 OR I>UR-1 OR I<>INT(I) THEN 200 

230 FOR J=i TO NC:PRINT N$(J):D$(I,J):PRINT :NEXT J:PRINT 
240 INPUT "ALTRO ARTICOLO (S/N)":5$ 

250 IF S$<>"S" AND S$<>"N" THEN 240 

260 IF S$="N" THEN RETURN 

270 GOTO 200 

280 PRINT :PRINT "NESSUN ARTICOLO PRESENTE" :PRINT 

285 PRINT "(PRIMA DEVI INSERIRE)":PRINT 

290 INPUT "CAPITO (S/N)":5$:IF S$<>"S" AND S$<>"N" THEN 290 


295 RETURN 


92 
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LISTATO PROGRAMMA MAGAZZINO PER GWBASIC E MSX (Seconda parte) 


300 REM ** MODIFICA *%* 

305 CLS:PRINT M$:PRINT 

310 IF UR=i THEN 280 

320 INPUT "ARTICOLO N.":I:PRINT 

325 IF I<i OR I>UR-1i OR I<>INT(I) THEN 300 

330 FOR J=i TO NC:PRINT N$(J);:INPUT D$(I,J):PRINT 
335 NEXT J:PRINT ; 

340 INPUT "ALTRO ARTICOLO (5/N)":S$ 

350 IF S$="S" THEN 300 

360 IF S$<>"N" THEN 340 

370 RETURN 

400 REM *% INIZIALIZZA VARIABILI X*%* 

410 NM=100:NC=5:UR=1:DIM N$(NC),D$(NM,NC) 

420 RESTORE:FOR I=i TO NC:READ N$(I):NEXT I 

430 DATA "DESCRIZIONE :" 

431 DATA "QUANTITA’ : 
432 DATA "PREZZO 1% 
433 DATA "IVA % : 
434 DATA "FORNITORE : 
450 RETURN 

500 REM ** TOTALIZZA INVENTARIO %*% 

505 CLS:PRINT M$ :PRINT 

510 T=0:FOR I=1 TO UR-1 

530 G=VAL(D$(I,2)):P=VAL(D$(I,3)) 

540 T=T+GQ%P 

550 NEXT I:PRINT 

560 PRINT "ARTICOLI PRESENTI : ":UR-1:PRINT 

570 PRINT “VALORE TOTALE =":T:PRINT 

580 INPUT "TORNO AL MENU’ (5/N)":S$:IF S$<>"S"“ THEN 500 
590 RETURN 

600 REM ** RIORDINO *X 

605 CLS:PRINT M$:PRINT 

610 IF UR=1 THEN 280 

620 PRINT "ATTENDERE MENTRE RIORDINO" :PRINT 

630 FOR I=i TO UR-2 

635 FOR J=I+1 TO UR-1 

640 IF D$(I,1)>D$(J,1) THEN GOSUB 700 

650 NEXT J,I : 

655 PRINT "FINE RIORDINO":PRINT 

660 FOR TM=1 TO 2000:NEXT TM 

670 RETURN 

700 REM ** INVERSIONI PER RIORDINO *X 

710 FOR K=1 TO NC 

720 D$(I,0)=D$(I,K):D$(I,K)}=D$(J,K):D$(J,K)=D$(I,0) 
730 NEXT K 

740 RETURN 


hl 
ERI 


bd. 


805 


Si N 


LISTATO PROGRAMMA MAGAZZINO PER GWBASIC E MSX (Terza parte) 
800 


810 


REM ** LEGGE DISCO XX 
CLS:PRINT M$:PRINT 

PRINT "INSERIRE IL DISCO DATI" 
INPUT "FATTO (S/N)":S$ 

IF S$<>"S" THEN RETURN 


CLS:PRINT M$ 
OPEN "MAGAZZIN" 
INPUT#1,UR 

FOR I=1 TO UR-1i 
FOR J=i TO NC 
INPUT#1,D$(1,J) 
NEXT J,I 
CLOSE#1 

RETURN 


FOR INPUT AS #1 


REM XX SCRIVE DISCO %X 
CLS:PRINT M$:PRINT 
IF UR=1i THEN 280 


PRINT "INSERIRE 


DISCO DATI" 


INPUT "FATTO (S/N)":5$ 


IF S$<>"S" THEN 
CLS:PRINT M$ 
OPEN "MAGAZZIN" 
PRINT#1,UR 

FOR I=i TO UR-1 
FOR J=i TO NC 
PRINT#1,D$(1,J) 
NEXT J,I 
CLOSE#1 

RETURN 


RETURN 


FOR OUTPUT AS #1 


aio 


LISTATO PROGRAMMA RUBRICA PER GWBASIC E MSX (Prima parte) 


— 198- 


LISTATO PROGRAMMA RUBRICA PER GWBASIC E MSX (Seconda parte) 


1 REM *X RUBRICA VERSIONE 3 PER GW-BASIC, BASICA, MSX XX 
2 REM XX DATI SU DISCO ** 
5 GOSUB 400:REM INIZIALIZZA 

10 REM *X MENU E SCELTE X% 


300 REM *X* MODIFICA XX 

305 CLS:PRINT M$ :PRINT 

310 IF UR=1i THEN 280 

320 INPUT “REGISTRAZIONE N.":1:PRINT 


ZONCLO = SU || 325 IF I<1 OR IDUR-1 OR ICINT(I) THEN 300 
25 PRINT "RUBRICA" :PRINT >» e O 330 FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 
30 PRINT "1 - INSERIMENTO 2 - LETTURA":PRINT È °° 335 NEXT J:PRINT 
33 PRINT "3 - MODIFICA 4 - FINE" :PRINT aa. GIONA 340 INPUT "ALTRA REGISTRAZIONE (S/N)":5S$ 
35 PRINT "5 - TOTALIZZA 6 - RIORDINO":PRINT i 350 IF S$="S" THEN 300 
36 PRINT "7 - LETT. DISCO 8 - SCR. DISCO":PRINT s-=WY 360 IF S$<>"N" THEN 340 
Finn] 40 INPUT "COSA SCEGLI ":R$ im ; 370 RETURN 
50 IF R$="1" THEN M$="INSERIMENTO RUBRICA":GOSUB 100 ns È 400 REM *X INIZIALIZZA VARIABILI XX 
60 IF R$="2" THEN M$="LETTURA RUBRICA":GOSUB 200 Pa 410 NM=100:NC=5:UR=1:DIM N$(NC),D$(NM,NC) 
54 70 IF R$="3" THEN M$="MODIFICA RUBRICA":GOSUB 300 | riti", È. 420 RESTORE:FOR I=1i TO NC:READ N$(I):NEXT I 


75 IF R$="4" THEN CLS:END 

80 IF R$="5" THEN M$="RICERCA":GOSUB 500 

85 IF R$="é6" THEN M$="RIORDINO RUBRICA" :GOSUB 600 
B6 IF R$="7" THEN M$="LETTURA DISCO":GOSUB 800 

87 IF R$="8" THEN M$="SCRITTURA DISCO":GOSUB 900 


430 DATA "NOME Hai 
431 DATA "COGNOME Bb: 
432 DATA "VIA E N.RO :" 
433 DATA "CITTA‘ de 
434 DATA "TELEFONO bey 


90 GOTO 10 450 RETURN 
100 REM %** INSERIMENTO XX 500 REM XX RICERCA XX 
110 I=UR 


505 CLS:PRINT M$:" PER":PRINT 
510 FOR I=1 TO NC 
515 PRINT N$(I):I:PRINT 
520 NEXT I 
_ 525 INPUT "QUALE RICERCA SCEGLI":R$ : PRINT 
— 530 R=VAL(R$):IF R<1 OR R>NC OR R<S>INT(R) THEN 500 
_ 535 INPUT "“"RICERCO ":RC$:CLS 
540 FOR I=s1 TO UR.-1 
545 IF D$(I,R)<>RC$ THEN 575 
550 FOR J=1 TO NC:PRINT N$(J):D$(I,J):PRINT :NEXT J 
555 INPUT “CONTINUO LA RICERCA (S/N)":S$ 
560 IF S$<>"S" AND S$<>"N" THEN CLS:GOTO 550 
565 IF S$="N" THEN I=UR 
570 CLS 
575 NEXT I 
580 PRINT “FINE RICERCA" 
585 FOR TM=i TO 2000:NEXT TM 
590 RETURN 
600 REM ** RIORDINO XX 
605 CLS:PRINT M$ :PRINT 
610 IF UR=i THEN 280 
620 PRINT "ATTENDERE MENTRE RIORDINO" :PRINT 
630 FOR I=i TO UR-2 


115 CLS:PRINT M$:PRINT 

120 IF UR>NM THEN 185 

125 PRINT “REGISTRAZIONE N.":I:PRINT 

130 FOR J=1 TO NC:PRINT N$(J)::INPUT D$(I,J):PRINT 
135 NEXT J:PRINT 

140 PRINT "F = FINE A = ALTRO INSERIMENTO" :PRINT 
145 INPUT "COSA SCEGLI":5$ 

150 IF S$<>"A" AND S$<>"F" THEN 145 

160 UR=UR+1 

170 IF S$="F" THEN RETURN 

1B0 GOTO 100 

185 PRINT :PRINT "RUBRICA PIENA" :PRINT 

190 PRINT "PER AGGIUNGERE REGISTRAZIONI" :PRINT 

192 PRINT "DEVI MODIFICARE NM":PRINT 

194 INPUT "CAPITO (S/N)":S$:;:IF S$<>"S" AND S$<>"N" THEN 194 
195 RETURN 

200 REM %* LETTURA XX 

205 CLS:PRINT M$:PRINT 

210 IF UR=1 THEN 280 

220 INPUT "REGISTRAZIONE N.":I:PRINT 

225 IF I<1 OR I>UR-1 OR I<>INT(I) THEN 200 

230 FOR J=1 TO NC:FRINT N$(J):D$(I,J):PRINT :NEXT J:PRINT 
240 INPUT "ALTRA REGISTRAZIONE (S/N)":S$ 


sn He | ‘0’‘©35 FOR J=I+1 TO UR-1 
250 IF S$<>"S" AND S$<>"N" THEN 240 xi gd 640 IF D$(I,1)>D$(J,1) THEN GOSUB 700 
2450 IF S$="N" THEN RETURN 650 NEXT J,I 
270 GOTO 200 - 655 PRINT “FINE RIORDINO" :PRINT 
280 PRINT:PRINT "NESSUNA REGISTRAZIONE PRESENTE" :PRINT e BE 650 FOR TM=1 TO 2000:NEXT TM 
285 PRINT "(PRIMA DEVI INSERIRE)":PRINT PU 670 RETURN 
290 INPUT "CAPITO (5/N)":S$:IF S$<>"S" AND S$<>"N" THEN 290 — E 700 REM ** INVERSIONI PER RIORDINO *% 
295 RETURN I° 710 FOR K=1 TO NC 
vai 720 D$(I,0)=D$(I,K):D$(I,K)=D$(J,K):D$(J,K)=D$(1,0) 
a= ; 730 NEXT K 


740 RETURN 


PAGINA 


96 


sO p/a 
LISTATO PROGRAMMA RUBRICA PER GWBASIC E MSX (Terza parte) 


800 REM ** LEGGE DISCO *%* 

805 CLS:!PRINT M$ :PRINT 

810 PRINT "INSERIRE IL DISCO DATI" 
820 INPUT "FATTO (S/N)":5$ 

825 IF S$<>"S" THEN RETURN 

830 CLS:PRINT M$ 

832 OPEN "RUBRICA" FOR INPUT AS #1 
835 INPUT#1,UR 

840 FOR I=i TO UR-1 

‘850 FOR J=1 TO NC 

860 INPUT#1,D$(I,J) 

870 NEXT J,I 

880 CLOSE#1 

890 RETURN 

900 REM *%* SCRIVE DISCO %*X 

905 CLS:PRINT M$:PRINT 

910 IF UR=1 THEN 280 

915 PRINT "INSERIRE DISCO DATI" 
920 INPUT “FATTO (5/N)":5$ 

925 IF S$<>"S" THEN RETURN 

926 CLS:PRINT M$ :PRINT 

930 OPEN "RUBRICA" FOR:OUTPUT AS #1 
935 PRINT#1,UR 

940 FOR I=i TO UR-1 

950 FOR J=i TO NC 

960 PRINT#1,D$(I,J) 

970 NEXT J,I 

980 CLOSE#1 

990 RETURN 


UNITÀ DIDATTICA OTTO 


fi 


| programma. 


| Esempio di dati interni: 


i Esempio di dati esterni: 


è x : ®. . . . . . 
Perchè per poter conservare il valore delle variabili è necessario trasferire i valori su una 
memoria di massa? 

fi 


nq . 
Quali sono i due tipi fondamentali di dati che è possibile trasferire da/a una memoria di 
| massa? 


i pro 
Obiettivo 3 


pus è la differenza fondamentale tra una memoria di massa e lamemoria R.A.M. del com- 
pute: 


È 
Nei 


| | scrivere nella prossima riga l'istruzione utilizzata dal vostro computer per aprire un canale 
di comunicazione con la periferica. 


(Se il vostro computer non prevede tale istruzione, passate alla domanda successiva). 


i rivete ora l'istruzione utilizzata per scrivere dei dati su un file sequenziale. 


i: A er 


S crivete ora l'istruzione utilizzata per leggere dei dati da un file sequenziale. 
pe 


Ù 


Se il vostro computerla prevede, scrivete l'istruzione per chiudere il canale di comunicazio- 


— tv 


Obiettivo 7 


Completare, adattandolo alle particolari caratteristiche del vostro computer, il programma 
di gestione delmagazzino o della rubrica per quanto riguarda il trasferimento da e verso la 
memoria di massa. 


Esercizio unità didattica otto 


Completare l'elenco del vocabolario BASIC, aggiungendo le voci apprese in questa unità 
didattica. 


STUDIARE sul manuale del vostro computer le istruzioni per la gestione dei file. 
Note: inconvenienti comuni nei trasferimenti su / da memoria di massa. 


L'inconveniente più frequente che il programmatore incontra nel trattamento dei FILES è 
58 che il computer non legge i dati scritti su nastro o su dischetto. 


Questo non significa che il registratore od il drive dei dischi funzionino male, ma soltanto 
che non si è usata la giusta tecnica ed i controlli necessari alla scrittura e lettura del FILE 
stesso. 


Purtroppo è indispensabile che verifichiate di persona il modo di operare del vostro compu- 
ter, seguendo alcuni consigli di carattere generale. 


CONTROLLATE sempre che le variabili alfanumeriche non abbiano valore nullo. 


Se una variabile alfanumerica contiene solo spazi vuoti (esempio: “ 
scrive su nastro o dischetto, ma non riesce più a leggerla. 

Per tale motivo è opportuno scrivere sul file le variabili alltanumeriche facendole precedere 
e seguire dal carattere CHR$(34) che è il codice ASCII solitamente attribuito alle virgolette. 


PAGINA 


") il computer la 


Esempio: 
1010 PRINT##1,CHR$(34);A$;CHR$(34) 
Questa tecnica vi permetterà di trovare sempre, nella fase di lettura, i dati che avete scritto. 


lai 


UNITÀ DIDATTICA NOVE 


| Obiettivi 1, 2, 3 
; Gli esempi si riferiscono a computer particolari per i motivi già spiegati. 


| Laser110 / Laser 210 / Laser 310 


| La funzione POKE verrà utilizzata per attivare/disattivare la stampa in INVERSE sul video. — | PAS 


Inserite il seguente programma e date RUN 50 
 10CLS 

20 INPUT “INSERIRE UN NUMERO”;N 

_30 POKE 30776,255 

. 40 PRINT “SCRIVO”;N;“IN MODO INVERSE” 

60 POKE 30776,0 

70 PRINT “SCRIVO”;N; IN MODO NORMALE” 

_ 80 END 


Laser 350 / Laser 500 / Laser 700 


La funzione POKE verrà utilizzata per attivare/disattivare la stampa in INVERSE sul video. 


Inserire il seguente programma e date RUN 
10 CLS 

‘20 INPUT “INSERIRE UN NUMERO”:N 

30 POKE &H85FA,2 

40 PRINT “SCRIVO”;N;“IN MODO INVERSE” 
60 POKE &H85FA,0 


70 PRINT “SCRIVO”;N;*IN MODO NORMALE" 
80 END 


Commodore 64 
La funzione POKE verrà utilizzata per attivare/disattivare la stampa in INVERSE sul video. 


ie; 
| nserire il seguente programma e date RUN 
10 CLS 
20 INPUT “INSERIRE UN NUMERO”;N 
POKE 199,1 

PRINT “SCRIVO”;N;“IN MODO INVERSE” 
PRINT “SCRIVO”;N;“IN MODO NORMALE” 
B0 END 


